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Il. INTRODUCTION 


A. BACKGROUND 
A structured analvsis was conducted in 1984 to determine the computing needs of 

the Administrative Sciences Department (AS DEPT) of the Naval Postgraduate School 
(NPS). This analysis defined three different sub-svstems: 

1. Financial 

Ee Personnel 

Dae roperty 
to keep track of all information pertaining to the management and control of 
departmental activities. A prototype system was developed and implemented in 1986 
in part as a feasibilitv study, implementing some of the features of each subsystem 
outlined in the previous analysis. The prototype proved the system feasible by 


showing that many of the manual procedures could automated. [Ref. 1,2] 


However, various factors lead to the decline of use, and ultimate abandonment of 
the prototype. The limited amount of information provided in anv of the three sub- 
systems was the major complaint. This motivated the AS DEPT to select the Propertv 


sub-system for full development. 


The term “property” used in this thesis does not connote the meaning of real 
estate. Throughout this thesis the term “property” will be used to refer to equipment 
and accessories for which the AS DEPT desires to maintain accountability. The AS 
DEPT maintains a considerable amount of office and computing equipment to 
support department office personnel, teaching staff, and students. This property 1s 
either assigned to, or made available for use both on and off campus. Faced with a 
small office staff, and a high turnover rate, property accounting never received the 


attention desired bv management. 


B. PURPOSE 
This thesis has two main objectives: 


i. Design, develop, and implement a database application - the Property 
Management System (PMS), to improve the property accountability for the 
Administrative Science Department of the Naval Postgraduate School. 


2. Outline the database development process using this application as an example. 


The first objective of this thesis should assist the AS DEPT in mancging 
department resources, provide better services, as well as furnish the administrative 
accounting requirements established by the Naval Postgraduate School for certain 
classifications of property. By centrally automating the property accounting function, 
timely information can be provided quickly and accurately. Therefore this will assist in 


planning both service support and property acquisition. 


Database system development is similar to other type business applications, but 
can be more complicated due to the amount of data stored, and the degree of sharing 
involved. This thesis uses the generally accepted methodology known as systems 
analysis and design (SAD) to accomplish the database development. SAD is a gx step 
methodical and iterative process as the system moves from concept to implementation. 
These six steps or stages make up the system life cycle. The steps are: 

1. problem definition 


2. feasibility study 


3. analysis 
4. design 
5. implementation 


6. maintenance 
To achieve the second objective of this thesis, the focus will be on the system 
design, and implementation steps of the life cycle. The previous life cycle steps were in 
essence performed in the earlier structured analysis and system prototype. However, 
the process of designing the Property Management System required the verification and 
update of prior works to correct identified inadequacies. The purpose in outlining the 
design. and implementation is to assist in the system maintenance, by providing the 


rationale behind these key decisions. 


C. CHAPTER DESCRIPTION 
Chapter II reviews database development activities which provides the framework 
for the PMS development. Design and implementation concerns related to the PMS 


application will be presented using this framework as an outline. 


Chapter III discusses usability and expandability issues. Usability pertains to 
prevalent svstem operation supported by the PMS application. Capabilities beyond 
standard data requests are addressed for qualified dBase III plus programmers. Finally 


the chapter presents the author's opinions on the PMS expandability. 


10 


The appendices provide useful documentation for maintenance and system 
Operation. In Appendix A, the data dictionarv includes descriptions of files and data 
elements. Appendix B contains the program listings of the installed system. The user’s 
manual is reproduced in Appendix C. It serves as a reference for the user providing 


direction and operation guidance. 
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If. PMS SYSTEMS ANALYSIS AND DESIGN 


A. METHODOLOGY 
lL. Analysis 
As stated in the previous chapter the development of the Property 
Management Svstem began with the analysis stage of the system analysis and design 
life cvcle. The focus of analysis is logical, concentrating on what needs to be done, not 
how. During analysis goals and constraints are identified for the user’s approval. 
Yourdon, a major proponent of Structured Analysis techniques calls this package 


specication |Rel=3. 0. oi) 


As the system moves toward development it is imperative for the analyst to 
funcuonally understand the system to be developed. A set of tools are available to 
assist in analysis. Two such tools are the Data Flow Diagram (DFD) and, the Data 


Dictionary. 


The DFD is the primary means for the analyst to communicate this 
understanding to the user. A DFD 1s an idealized model of the proposed system 
ignoring implementation details. It is used to describe graphically the contents and 
behavior of the system. A DFD reflects the system functions that must be performed, 
identifying the data, data flows, data stores, and processes involved in transforming the 
data. Addiuonallv, a DFD outlines the system boundaries by identifying the sources 


and destinations of data. 


The data dictionary is used for supporting documentation. A data dictionary 
is a collection of data about the data. Data elements are defined and described, 


sources and use are also identified. 


The final output of analysis is a physical constraints document. User 
requirements not involved with the logical model of the system that limit design are 
outlined. This is a text of specifications that are physical in nature. Examples are 
hardware selection, interactive processing or specified response umes. 

2. Design 
The next stage of development is system design. Database design is a two 


step process. The first step is logical database design and involves building a logical 


data structure called a schema, conceptual schema, .or logical schema. The next step 
entails translating the logical schema into a physical design. Physical design is 
dependent upon the particular database management system (DBMS) used for 


implementation. [Ref. 4] 


Relations, tuples, and attributes are the elements of a relational database. 
Relations correspond to files, tuples to records, and attributes to data elements 
respectively. The contents of a tuple are a fixed number of attributes, the set of 
possible values of an attribute comprise the domain for that attribute. The DFD and 


Hatapdietionary are excellent sources for these values. 


A database logical structure 1s an overview of the data. It consists of 
determuning the relations and the relationships between them. The approach to logical 
design involves aggregating and classifying data according to different user's views 
(meanings) of the data. Data is consolidated to represent the relations according to 
these user perceptions. A data structure diagram is one method to represent a logical 
structure. Like a DFD it 1s a graphic representation and used to model the database. 
This diagram illustrates the associations between relations. Four relationships are 


possible: none, one-to-one, one-to-many, and many-to-many. 


A relation has certain identifiable properties. A relation 1s a flat file, each row 
(tuple) has a fixed number of fields (attributes). All tuples are unique with no 
duplicates allowed. A kev uniquely identifies a tuple. The key may be a single 
attribute or a set of attributes. It 1s possible to have more than one key, and a primary 
key must be chosen. Alternate keys are referred to as candidate keys. Every relation 


has a key, since in the worst case a combination of all the attributes could be the key. 


Relational database theory has outlined some important considerations in 
developing alternative logical schema. To eliminate inconsistencies within the 
database, redundancy needs to be minimized. Anomalies are consistency problems that 
arise due to data redundancy and are resultant of operations on the relations such as 
update, insertion, and deletion of attributes or tuples. To reduce these problems, larger 
relations are decomposed or projected into smaller relations. The projection is done 
vertically, selecting a common attribute between the two relations. If necessary the 
information can be recreated by joining the two smaller relations. Schema design 1s the 


essence of normalization outlined in relational database theory. [Ref. 5] 


The second stage of database design involves transforming the logical schema 
into physical data constructs and designing the program modules necessary to 
manipulate the data. Two languages specific to a DBMS are provided for these 
purposes. Data constructs are declared using the Data Definition Language (DDL). 
This process requires specifying field, record, and file formats, and their constraints. 
Programs are created using the Data Manipulation Language (DML). Program 
modules are designed to manipulate the database to furnish desired outputs as well as 
providing the means to store the data. A hierarchy diagram is one method used to 


depict the structure of the program relationships. 


B. PROPERTY MANAGEMENT SYSTEM DEVELOPMENT 
1. Analysis 
To begin designing the Property Management Svstem interviews were 
conducted with the principal users to identify their needs and desires to provide the 
accountability of departmental property. The department at present has no established 
procedures and no one single individual assigned to maintain property. This makes it 


necessary to interview most of the AS department office personnel. 


A number of interviews were conducted with the NPS property manager to 
identify items missed during the users interviews. It was a stated requirement of the 
AS department Chairman to maintain accountability within the schools guidelines. 
Upon completion of the interviews with the NPS property manager it was concluded 
that the transactions and data elements requested by the AS ofhce personnel would 
provide the necessary information to maintain the accountability established by the 


NPS property manager. 


The school requires that a DD1342 paper document be kept up to date and 
on file with the property manager for all plant property. A new classification - nunor 
property, will have similar accountabilitv requirements. Since at this time the 
requirements had not been established for minor property, the new system will provide 
the same accountability as plant property for all department property. This should 
meet the schools policy, once established, requiring minor changes if any. With the 
data elements identified it will be possible to identify and locate all AS department 


plant property and provide the information necessarv to keep the DD1342 accurate. 


The following physical constraints and requirements were compiled from the 


mnterviews: 


The proposed system will be implemented -on an IBM XT microcomputer, 
which the AS DEPT already owns. The existing daisy wheel printer is also to 
be utilized. The micro has two 10 MB hard disk drives, all of which mav be 
Wiilized: 


The .proposed system will be on-line thereby allowing entries, deletions, and 
modifications as transactions occur. 


The proposed system will be written with dBase III Plus which is much more 
familiar to department personnel and has a much greater chance of being 
maintained. The new system will be both inicractive and menu-driven. I[t will 
also require minimal training for the user, given they are in possession of a 
general familiarity with the operation of nucrocomputers. A comprehensive 
user's manual will be provided to assist in training. 


The new DBMS will provide the ability to answer ad-hoc queries concerning all 
necessary inventory information of the accountable property of the AS 
department. The data is to include a physical item description. the actual 
phvsical location of the item, the individual charged with the custody of the 
item, how the item is configured, and financial accounting information (price 
and requisition number). Queries will be provided to answer questions (singly 
Or categorically) about items, custodians, property types and numbers, or 
locations of all the department property inventory. The new DBMS will also 
provide summary and report data for a quarterly department inventory report. 


Basic transactions and data elements were extracted and identified from the 


interviews. A preliminary data dictionary and a data flow diagram were presented to 


the department supervisor along with the above requirements. The data elements were 


intentionally left from the DFD, see Figure 2.1. The DFD was used at this point to 


verify the system boundaries and basic transactions. This proved a useful method in 


extracting the user views, beginning the design process. 


2. Logical Design 


Users views were compiled and used to create the relations (files) necessary to 


maintain the information requested. The data elements identified were assembled from 


the user interviews and the DD1342 document. The user views match the data stores 


depicted in the Data Flow Diagram. The user views are listed as follows: 


tJ _ 
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Components (aliases: Property, Inventory) 
Owners (alias: Custodians) 
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Figure 2.1 Data Flow Diagram. 
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a. User View No: 1 
User View Name: Components (aliases: Property, Inventory) 


Description: Information describing a piece of equipment belonging to the 
Admin Science Department inventory. 


Data Elements: 
e Manufacturer 
e Model 
e Description 
e Mfg serial # 
e Requisition # 
e Property type (plant/minor/other) 
e Custodian 
e Location code (storage; lab/office;/home) 
e Date of issue 
b. User View No: 2 
User View Name: Owner (alias: Custodian) 


Description: Information gathered about a custodian of a piece of equipment 
when such equipment ts entered into inventory or reassigned. 


Two owner classes: 

1. AS Department - storage items or lab items 
2. Personnel - home or office items 

AS Department Data Elements: 

e AS Department 

e Location 

Personnel Data Elements: 

e Last Name 

e First Name 

e Office 

oF Srcel, * 

Cia 

¢ Home Phone * 

* Removed to homes (see User View #5) 
Revised Personnel Data Elements: 

e Last Name 


e First Name 


e Location (either Bldg room or Home) 
c. User View No: 3 
Lser View Name: Parts 


Description: Information describing a trackable part for a particular 
component. 


Data Elements: 

e Model 

e Description 

e Mfg Serial # 
e Property tvpe 
e Property 4 

© Price 

e Requisition # 


¢ Component Serial # (if blank, assumed storage and not a part of a 
component) 


d. User View No: 4 
User View Name: History (alias: Deleted property) 


Description: Information used to track minor and plant property (parts or 
components) when deleted. 


Data Elements: 
e Mfg 
e Model 
e Serial # 
e Property tvpe 
e Property # 
e Deletion date 
e. User View No: 5 
Lser View Name: Homes 
Description: Information tracked for custodians that use components at home. 
Data Elements: 
e Last name 


e First name 


e Street 
e City 
e Phone 


Relationships were identified and depicted in the Data Structure Diagram, 
see Figure 2.2, Components can have more than one part, and an owner may have 
more than one component. These are one-to-many relationships. A one-to-one 
relationship exists between an owner and home, since a custodian will have only one 
home address. Notice to get the home address location of a component will require 
linking these relations through an owner. The history relation shows no dependent 


relationships. 


Parts 





Figure 2.2 Data Structure Diagram. 


3. Physical Design 
The next phase in the design process was to translate the users views into the 


Structures necessary to implement them in dBase III plus. 


The data definition language provided with dBase III plus places restrictions 
on the name sizes of fields and files. Files are limited to 8 character names and use a 
.DBF extension. Each field must have a name of 10 characters or less. Also each field 
requires declaring a type and a length. Appendix A contains a listing of the files and 
data elements for the PMS. 


A hierarchy diagram shown in Figure 2.3 outlines the modules necessary to 
implement the transactions identified during requirements analysis. Since it is intended 
for the program to be menu driven, the child nodes of the hierarchy diagram will be 
options presented to the user called from the parent nodes. Program descriptions are 


contained in Appendix A. 


i 








| | | 
Help Enter Modi ty Delete P ae Lists 


Owner/ Property euar tea and 








Location nventory searches 
Reports 
| | 
Components Parts Components Parts 





Figure 2.3. Hierarchy Diagram. 


4. Implementation 
Implementation required first writing code for each of the modules. Appendix 
B is a listing of all programs. Test data were generated and each module was tested 
thoroughly to ensure that no failure would occur. Due to the requirement that a user 
not need have a knowledge of dBase [II plus this was deemed critical. Programs 


Were Written so that a user 1s walked through each step, with the program in control. 


Testing also involved checking for data inconsistencies. As modules were 
written thev were tested alone and in combination with calling modules. The testing 
proved very tedious but very rewarding. When a near final version was prepared for 
screening bv the DEPT supervisor no svstem errors were discovered. This helped instill 
a sense of confidence with the system. A few inconspicuous errors were discovered and 


required correction. 


The screening was an opportunity for feedback about the output presentations 
and formats. No major modifications were noted and once the system was finalized it 
was tested with the real data. The system proved reliable and accepted as satisfactory 


by the dept supervisor. 


Estimates were made on the maximum file sizes and a storage requirements 


analvsis is outlined in Table |. This showed that the entire database can reside on a 


single floppy disk which will allow an easy method of backing up the database files. 
Copy commands are included in an Autoexec.bat file contained on the system boot up 


disk. When the system is exited copies are done without a user having to remember to 


do so. 
TABLE 1 
Peay Oly ViesTORAGEREOLIREMENTS 
FILE NUMBER BYTES sREO MOT A L 

COMPONENTS OOO 149 149,000 

PARTS ANG: 108 21.600 
OWNERS qo 39 2,925 

HOMES s0 81 2,430 

Fe oer: 100 50 5 COO 


Finally a user’s manual was prepared and delivered along with a backup copv 
of the system. With empty database files the system will fit on a single floppy disk. If 
a problem with the hard disk did occur it would be necessary to copy the systems disk 
and the latest copy of the database files. The user’s manual is reproduced in Appendix 
Cc. 
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IT. CONCLUSIONS 


The Property Management System is presently being utilized and is providing a 
useful means of maintaining accountability for the AS DEPT property accomplishing 
the first objective of this thesis. The pmnted reports, and screen presentations of 


information output were furnished for this purpose. 


The objective of the maintenance stage of the life cycle is to keep the system 
functioning. As a new application program, errors may surface requiring correction. 
Additionally it was observed that there was some degree of user uncertainty whether or 
not all outputs will be useful, or if additional outputs might be helpful. These are onlv 
a few of the likely future maintenance problems. For the continued success of this 


system it will have to be maintained. 


None of the users are dBase [II plus programmers. [t would be beneficial for a 
member of the AS DEPT office to learn the language. Capable faculty and students 
are available and should be recruited to handle maintenance functions in the interim. 
With the documentation contained in Appendixes of this thesis it will be possible for 
an individual with a reasonable level of dBase III plus to either modify existing 


programs or create new ones to service new user requirements. 


The data manipulation language provided with dBase III plus allows accessing 
and manipulating the database without having to write programs to do so. There is no 
method of taking advantage of this feature from the PMS application. However the 
database files can be accessed and called directly into dBase III plus for use. For a 
dBase III plus programmer this would be the easiest way to handle single output 


requests. 


Property management was only one of the functions addressed during the 
previous prototype development, the others were Personnel and Financial. The PMS 
application could easily be adapted to include a personnel database. This was not 
deemed necessary during development and not included. The department ts very 


satisfied with the manual procedures established. 


The AS DEPT has expressed a desire to automate its financial system. This 


should be the next development project to be undertaken. The PMS application would 





work very well as a stand alone system without the need to integrate it with a financial 
system for the following reasons: 


1. Property is a very small subset of the financial expenditures within the AS 
DieRal: 


2. Very little data would be duplicated. 


‘A spreadsheet application such as Lotus may serve better utility for a financial 
system. 


Cs 


Database development was outlined in the main body of the thesis in accordance 
with the second objective. The Systems Analysis and Design methodology proved very 
iecimeamlng theseroperty Vianagement System development. The success of the PMS 
development using this technique can be attributed to three reasons: 

1. A thorough understanding of the user requirements. 
2. Attention to database structure prior to system design. 


3. The communication and documentation provided with the analysis and design 
tools. 


In conclusion, a goal of any development effort is to deliver a satisfactory system 
on time and within budget. This goal was accomplished with the Property 


Management System. 
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APPENDIX A 
DATA DICTIONARY 


This Appendix provides necessary information for the maintenance of the 


Property Management Svstem. The information is organized into four sections and 


presented in table format. The usefulness of the four sections are discussed as follows: 


Ke 


to 


sd 


Data Files - This section lists database and index files. The usefulness of 
database files should be obvious, all data are stored in these files. Index files 
are data related files used for output format and fast retrieval of data for 
output. 


Data Elements - This section is the data dictionary in dBase III plus format. 
The structure and source of each data element is provided. Due to the 10 
character name limitation a description is also given to help decipher the 
purpose of each element. 


Files Used By Programs - This section provides the database and index files 
used by each program module. This section will prove useful in determining the 
effects of anv program modifications. 


Calls - This section provides a description of each of the program modules and 
shows the relationship between modules. Ihe programs called by each module 
and the calling program of a particular module are provided. 


FILE NAME 


COMES. DEF 
Penno.DBE 
OWNERS. DBF 


HOMES. DBE 


Pe OR le 
NAMES. NDX 


COMP aSsER. NX 
NAME_LOC. NDX 


C_SER. NDX 
L_FNAMES. NDX 
Pete OBE 
PMP 2 DEY 
TEMPS. DBE 
TEMP3.NDX 


TYPE_NUM. NDX 
TEMP. NDX 


aes 


DATA 


DATA 


DATA 


DATA 


DATA 


INDEX 


INDEX 
INDEX 


INDEX 
INDEX 
DATA 
DATA 
DATA 
INDEX 


INDEX 
INDEX 


ABLE 2 
Pete LES 





ATTRIBUTES ABOUT A 
COMPONENT PROPERTY ITEM 


ATTRIBUIES ABOUT A PART 
PROPERD ae EM 


NAME AND LOCATION OF A 
PROPER a eUS TOR ran 


HOME ADDRESS OF A 
CUSTODIAN WITH HOME 
PROPERG 


AN ARCHwVE FOR) DEER ITED 
PLANT OR MINOR PROPERTY 


ON_LAST_ NAME + FIRST_NAME 
+ LOCATION 


ON) COMERS Ee 


ON LAST NAME + FIRST_NAME 
+ LOCATION 


ON COMPESER 

ON LAST_NAME + FIRST_NAME 

JOINS COMPS WITH OWNERS 

JOINS COMPS WIZE eME 

JOINS COMPS WITH PARTS 

ON LAST_NAME + Sed _NAME 
ee ea 


| 
| 
DESCRIPTION 


+LOCATION + 
C_MODEL 


ON P_TMPE + Papen 


ON C_PTYPE + C_PNUM (FOR 
SUM. RPT) 

ON LAST NAME + FIRST_NAME 
(FOR OTR. RPT) 


ELEMENT 


city 
COMP _SER 


COME Bore 


OD) 35.2 
CUE 


C_MOPEL 


C_PNUM 


C_ BERG 


CPT EE 


C_REON 


DEDLDATE 


AB ies 
DATA ELEMENTS 


TYPE WIDE SSse7RGe 


CHAR 15 ROMES,. DEE 
CHAR 15 COMES vp 
CHAR 15 PRR we. 
CHa 50 COMES SEs 
CHAR 15 COMES. Sr 
CHAR 15 COMPS. DE 
CHAR 10 GonPs. DEE 
NUM LO COPIrs 2a 
CHAR 1 COMPS. DBE 
CHAR 15 COMPS. BEE 
DATE 8 HISTORY 22s? 
it COMPS . Dew 


FIRST_NAME CHAR 


DESCRT PT LOR 


A HOME CUSTODIAN'S 
HOME ADDRESS 


MANUFACTURER'S 
SERIAL # (KEY) 


COMPONENT MEG 
SERIAL # A PART IS 
ASS IGNED 


DESCRIPTION OF @ 
COMPONENT 


COMPONENT MFG 
COMPONENT MODEL 
COMPONENT PROPERTY 
NUMBER (MINOR AND 
PLANT TYPES) 
COMPONENT PRICE, 
USES A TEMPLATE 
(99,999.99) 


COMPONENT PROPER 
TYPE ( PEANT /Titlieey 


OTHER 
DEPT REQUISTORUON we 
USES A JEMPUCALS 


9999-NNNN/NNNNN 


DATE A COMPONENT 
OR PARI 15S” PEAG2E 
INDO Vero ern 


CUSTODIAN'S FIRST 
NAME (AS DEPT GETS 
ROOM #) 





ELEMENT 


FIRST_NAME 


FIRST NAME 


PssUb_ Date 


LAST NAME 


LAST_NAME 


LAST NAME 


LOCATION 


LOC_CODE 


MEG 


MODEL 


Peo 


PHONE 


TABLE 3 
DATA ELEMENTS (CONT'D. ) 


Dee Wee SOURCE 


CHAR. 15 OWNERS. DBF 
CHAR 15 HOMES. DEF 
DATE 8 COMES. DEL 
CHa ts COMPS. DBF 
CHAR 15 OWNERS. DBF 
CHAR 15 COMES. DEE 
CHAR 8 OWNERS. DBF 
CHAR 1 Sols. DBE 
CHAR 15 moe. DBE 
CHAR 15 PeleeonRy. DBF 
CHAR 15 PARTS. DBF 
CHAR i3 HOMES. DBF 


DESC ieee TON 


CUSTODIAN'S FIRST 
NAME (COMPOSITE 
KEY) 


HOME CUSTODIAN'S 
FIRST NAME 
(COMPOSITE KEY) 


DATE A COMPONENT 
ASSIGNED TOA 
CUSTODIAN 


GUSTODIAN MGM LAST 
NAME (AS DEPT 
GETS AS DEPT) 


CUSTODIAN'S LAST 
NAME (COMPOSITE 
KEY) 


HOME CUSTODIAN'S 
LAST NAME 
(COMPOSITE KEY) 


BLDG-ROOM # OF A 
COMPONENT CUSTODIAN 


LOCATION CODE 
CRORE 
TORAGE ) 


MECC TOE ei rhe ED 
COMPONENT 


COMPONENT OR_PART 
MODEL “Ob DEE TED 
PROEE Re 


MANUFACTURER'S 
SERIAL # 


A HOME CUSTODIAN'S 
HOME PHONE #4 

USES A TEMPLATE 
(999)999-9999 


ELEMENT 


PNUM 


Paar E 


PEDE Se 


P_MODEL 
P_NUM 


Prec: 


P Tw 


P_REQN 


SERIAL_NUM 


STREET 


TABLE 3 


DATA ELEMIENDES (CONT D. ) 


TYPE WIDBE "G@GRCE 


CHAR 


CHAR 


CHAR 


CHAR 
CHAR 


NUM 


CHAR 


CHAR 


CHAR 


CHAR 


10 


20) 


ils 
ane} 


i 


195 


Za 


HESTORm.DBE 


HISTORY. DBE 


PARTS @DB.e 


PARTS. DBF 
PARTS. DBF 


Fao DEE 


Pai. DBE 


PARTS. DEF 


BISTORY. DEF 


HOMES. DBF 


28 


DESCRIPT FON 


PROPERTY +# OF MS 
DEEETED PART OR 
COMPONENT 


PROPERTY. TAPE O8 
A DELETED PART OR 
COMPONENT 


A DESCRIPTION OF 
A PARTICULAR PART 


PART MODEL 


PART PROPERTY # 
(MINOR AND PLANT 
YPES) 


BRICE OF & 
PARTICULAR PART, 
USES & TEMPLATE 
oS Jor oe 


PART PROPERQY siya 
( PLANT, MINOR, OTHER) 


DEPT REQUISITION # 
USES A THEMPEATS 
9999-NNNN/NNNNN 


MEG SERIAL # OF A 
DELETED PART Wk 
COMPONENT 


A_HOME CUSTODIAN'S 
ADDRESS 





PROGRAM 


ADDCOMP. PRG 


Ome lab RG 
ADDMENU. PRG 
ADDPART. PRG 


ADHOC. PRG 
DELCOMP. PRG 


DEERE LEP RG 
DELMENU. PRG 
DELPART. PRG 


VAN oP. PRG 
MODCOMP. PRG 


MObBa sik? PRG 


TABLE 4 
Beebe) By PROGRAMS 


DATABASE FILES 


HOMES. DBF 
OWNERS. DBE 
COMPS. DBF 
NONE 

NONE 

PARTS. DBE 
COMPS. DBF 
NONE 
HISTORY. DBF 
OWNERS. DBF 
COMPS. DBF 
NONE 

NONE 
HISTORY. DBF 
PARTS. DBF 
COMPS. DBE 
NONE 

PARTS. DBF 


n@rias. DEE 
COVES a OBE 


NONE 


fe 


INDEXES 


L_FNAMES. NDA 
NAMES. NDX 
NAME_LOC. NDX 


NONE 
NONE 


Georw. NDA 
COMP_SER. NDX, 
NAME_LOC. NDX 


NONE 


NONE 

Coo bie nibs 

i SNAMES. NDX 
NAMES. NDX 
COMP_SER. NDX, 
NAME _LOC. NDX 


NONE 
NONE 

SER. NDX 
SOME Sok. NDA, 
NAME_LOC. NDX 
NONE 
C_SER. NDA 


L_FNAMES. NDX 
COMP SER. NDX, 
NAME~LOC. NDX’ 


NONE 


| TABLE 4 


PROGRAM 


MODLOC. PRG 


MODMENU. PRG 
MODPART. PRG 


OWNERS. PRG 


| 

PMANF. PRG 

| PMOD. PRG 
PROPERTY. PRG 
ORY_HELP. PRG 
OTR_RPT. PRG 


REPORTS. BEG 
RP Tone ee 
SLOCATIO. PRG 
SOWNER. PRG 


SUMIRPT. BEC 


DATABASE ase S 


OWNERS. DBF 
COMPS. DEF 
NONE 

PART Saws 8 
ACME RS DBE 


OWNERS. DBF 
COMES: DEE 


HOMES. DBE 
OWNERS. DBF 
COMPS. DET 
COMPS. DBE 
NONE 

NONE 
Beams OBE 
OWNERS. DBE 
COMPS. DEG 
NONE 

NONE 
COMPS] DBE 


COME See br 
OWNERS. DBE 


PARTS. DBE 
COMPS. DBF 


FILES USED BY PROGRAMS (CONT'D. ) 


INDEXES 


NAMES. NDX 
COMP_SER. Dae 
NAME_LOC. NDX 


NONE 

C_ SBR. NDA 

L_ FNAMES. NDX 

NAMES. NDX 

COMB..wSER. Nia 

NAME_LOC. NDX 
eRe ADS 

NAMES 

NONE 

NONE 

NONE 

NONE 

C_SER. MDX 

NAMES 


NDX 
COMS SER. NDX, 
NAME_LOC. NDX 


NONE 

NONE 
NAME_LOC. NDX 
NAMES a5,0" 
CJSBR. NBX 


COMP_SER. NDX, 
NAME_LOC. NDX 








PROGRAM 


ADDCOMP.PRG 


Pewee. DRS 


ADDMENU. PRG 


ADDPART. PRG 


ADHOC. PRG 


DELCOME “PRG 


PELSHE LY. PRG 


DELMENU. PRG 


DELPART. PRG 


TAI 5 
CPS 


| 
CALLS CALLED BY, 


ENTERS COMPONENTS INTO COMPS. DBF AND 
ASSIGNS CUSTODIANS PLACING THEM INTO 
OWNERS OR HOMES IF NOT ON FILE 

NONE ADDMENU. PRG 


DESe. eho IN CENERAL THE PROCEDURES TO 
EN@SR A PART OR COMPONENT 


NONE ADDMENU. PRG 


eee OF THE CHOICE TO ENTER A 
PART OR COMPONENT 


ADDCOMP. PRG NOR nee biG 


Pi@joneren to AND PLACES THEM INTO PARTS, 
ASSIGNING THEM TO STORAGE OR A COMPONENT 


NONE ADDMENU. PRG 
DISPLAYS THE MENU FOR LISTS AND SEARCHES 
OWNERS. PRG PROPERTY. PRG 

SOWNER. PRG 


SLOCATIC. PRG 
ORT ners PRG 
PMANF. PRG 
Prop ee RG 


DEBETES COMPONENTS AND PLACES PLANT 
Pee NOR EeoOrr hey eNrO HISTORY 


NONE DELMENU- PRG 


Boraee DN CENE RATE PROCEDURES TO 
DELETE Pen Che OcesaROr RR Ty 


NONE DELMENU. PRG 


Mesa tot CHerCheie DELETE A PART OR 
COMPONENT 


DELCOMP. PRG PROPER RC 
DELPARI. PRG 
DELEEEr. PRG 


DEREIES PARTS, PLACES PLANT AND MINOR 
PRerenwtiy INTO HISTORY 


NONE DELMENU. PRG 





TABEE 5 


PROGRAM 


MATIN _HLP. PRG 


MODCOMP. PRG 


MODSIE Se RG 


MODECC. PRG 


MODMENU. PRG 


MODPART. PRG 


OWNERS. PRG 


PMANE. PRG 


PMOD. PRG 


CALLS (G@N@'D. ) 


CALLS CALLED BY 


DESCRIBES 2HE PROPEEMY SYounl jaw 
EXPLAINS IN GENERAL THE TASKS AVAILABLE 


NONE PROPER, PRG 


ALLOWS THE MODIFICATION OF A COMPONENT 
RECORD (EXCEPT FIELDS TO ASSIGN 

OWNERSH B) IF THE SERIAL # IS CHANGED 
IT IS REFLECTED IN PARTS 


NONE MODMENU. PRG 


DESCRIBES IN GENERAL THE PROCEDURES Use 
TO CHANGE A PROPERTY RECGRD 


NONE MODMENU. PRG 


ALLOWS REASSIGNING A COMPONENT TO A 
NEW CUSTODIAN, IF NOT ON FILE CUSTODIAN 
ADDED TO OWNERS OR HOME 


NONE MODMENU. PRG 


DISPLAYS THE CHOICES TO MODIFY A 
COMPONENT OR PART RECORD, ALSO ALLOWS 
REASSIGNING THEM A NEW CUSTODIAN 


MODCOMP. PRG PROP Ewer pe 
MODLOC. PRG 
MODPART. PRG 
MODHELP. PRG 


ALLOWS MODIEICATION OF A PART RECORES 
IF REASSIGNED TO A DIFFERENT COMPCRaE™ 
CHEGKS TO SEE IF COMPONERE 15,0N Fae 
NONE MODMENU. PRG 


LISTS CUSTODIANS ON FILE (NAME AND 
LOCATION) 


NONE BDHOC. PRE 
DISPLAYS THE COMPONENTS OF A DESIRED Wie 
NONE ADHOC. PRG 


FINDS ALL COMPONENTS OF A DESIRED MEG'S 
MODEL } 


NONE ADHOC. PRG 


We 
tr 





PROGRAM 


PROP. ERC 


One Hee RG 


erRe REL. ERG 


RESORTS, ERC 


RE donee 2 RG 


SeOCk ino. ERG 


SOWNER. PRG 


SUM RE ee kG 


TABLE 5 | 
ereLs (CONT'D. ) 


CALLS CALZ 2D BY 


THAT ARE AVAILABLE FOR THE USER, CHECKS 
PASSWORD/ACCESS 


DOS PeAoe, Lid 


DESCRIBES IN GENERAL THE LIST AND 
Peano eAPAR Lal TIES 


NONE Pe HOCe es he 

Peeehieo > REPORTS: 

1. COMPONENTS GROUPED CUSTODIAN/LOCATION 
Zee CROULTED BY CUSTODIAN/COMPONENT 
ooo wee. PARTS NOT ASSIGNED 


NONE 


| 
| 
| 
MATIN MENU TO DISPLAY THE VARIOUS TASKS 


TEMES ERM 
eck kM 
SLTOKPART. ERM 


Mion Lo) DiSsebAY THE CHOICES. TO PRINT A 
QUARTERLY OR SUMMARY REPORT 


PRR Le ERG PROGR ay. ERG 
ime! PRG 
ho beaele, PRG 


DESCRIBES IN GENERAL THE PROCEDURES TO 
eas wb ROLERIY REPORTS 


NONE REEORT So RG 


Pee come OME ONENTS CROUPED By THE 
ECeATLON CODE 


NONE ADHOC. PRG 


DiSeeayS COMPONENTS OF A PARTICUMAR 
CUSTODIAN 


NONE PROC rE RG 


Prints 3 REPORTS: 
ali ae aan oo Boer ROPE Rix 


Ta ck M 
Zoo LONED PARTS CROUPED 
See lOCK PARTS SAME CROUPING 


Aba e Bl NONE 
PARTSTIOK. ERM 
PARTSUM. FRM 


ie ADDCOMP.PRG 


er... <a 


* Cal lis iis cece ese eee 
*ROSERVEGwe «+. ame 
XInput/OUtput Paes ae 


Clear, 
set confirm on 
set exact off 


select c 


APPENDIX B 
PROGRAMI LISTINGS 


Program: ADDCOMP .PRG RAEKKAKKKAKKKKKKEKK 


TIM SEXTON 
enter components into COMPS and assi 
custodians placing them into OWNERS or HOMES 
‘ if not presently on file 
one 


None 
COMPS.DBF, OWNERS.DBF, HOMES.DBF 


use homes index 1_fnames 


select b 


use owners index names 


select a 
use comps index name_loc,comp_ser 
do White 

blank = space(15) 

mmfq = blank 

mmod = blank 


mser = blan 
mptype - liu 
mpnum = space(10) 
mprice = 0.00 
mreqn = blank 


mloc_code = " " 
mtoday = date( ) 
miname blank 


mfname = blank 


mstreet = space(25) 


mcity = blank 


mlocation = space(8) 


mphone = space(13) 


entering = .t. 
finished = .f. 
addowner =.f. 
addhome = .f. 


Q@0O.16 $ay "CO 


PONEWN® EW Te Y 5 €R £ ea 


@ 1,0 wo | ag sound 


@ 2,0 say "Enter Component Information:" 
G@ 21.0 to 27 | 
do while .not. finished && entering a component 


do while entering && componenet information 


@ 2,56 say “date: " 
@ 2,61 say mtoday 


@ 3,12 e@y “mig: " 
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4,10 say "model: " 
Se say serdaler: | 
ee esavelidescription: | 


22,25 say "To EXIT leave mfg blank" 
x entries begin at column 13 
c= 18 


® DAM 


* enter mfg or exit 
Bye get mmeg + LCIURE. "GN!" 
read 
1£ mmfg = blank 
Setecentarm orf 
close databases 
release all 
return 
else 
(en 2, Oscledt tcdecs,/9 
endif 


x enter model 
@4,c get mmod PICTURE "@N!"! 


read 
x enter mfg serial# (mandatory) 
no_ser = .C. 


do while no_ser 

@5,c get mser PICTURE "@N!"' 

read 

1f mser = blank 
@ 22,24 say "Serial # may not be blank’ 
delay = 
do w me delay 25 

delay = delay + l 


enddo 

@ 22,0 clear to 22,79 
else 

no_ser =.f. 
endif 


enddo 


* enter description 
6,c get mdesc PICTURE "GN!" 
read 


* enter location code 
set cone off 
@ el sayeiaesucnatedmuse.. * 
@ 8,20 say "(Office / Lab j Storage / Home)" 
@ 8 get mloc_code PICTURE "@!A" 
rea 


do while .not. mloc_ code $"OoL1SsHh'!! 
mLoc _code = 
@ 8,c get nee _code PICTURE "@!A" 
read 

enddo 

set confirm on 


enter custodian information, search to see if on file 

use owners for loc_codes 0,S,L 

use homes for loc_code H 

last name, first name, and office or home addresses are mandatory 


dowGase 
x office use 


Ob Ob OOF 


case mloc_code = "0! 


no_lname = .t. 
do wet no _lname 
O clear to 15,79 
@ 36 say "Custodian" 
@10,6 say "last name: !" 
@10,c get mlname PICTURE '@!A" 
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* check to see if 


read 
if mlname = blank 
@ 22,24 say 'Custodian's name may not be blank’ 
delay = 
do while delay < 25 
delay = delay + 1 
enddo 
@ 22,0 clear to 227479 


no_lname = .f. 


enddo no lname 


on file 

select owners 
Goto rep 
searched = .f. 
checked = .f£. 
located = .f. 
addowner = .f£. 


not. searched 
searched = .t. 
else 
seek trim(mlname) 
endif 


Lf Sane found (), 
‘searched 
addowner - 

endif 


ifeGfowmmeé.) “and. location = 
searched = 
located 
checked 
endif 


if found() .and. location <> "HOME"! 
searched = .t. 
located 
checked 
endif 
enddo 


do while located 
do while #rot. 
11,5 say 


"HOME" 


it. 


TL 
thet 


checked 

"first name: ' 
@ill,c say first_name 
@12,9 say "office: " 
@12,c say location 


set confirm OLr 


-not. 
ans = '! 
© 2225 Say: 

"Ts this the correct custodian? : mu 

@ 23,34 say "{ Yes / No 
@ 22,56 get ans picture "@! 
read 

enddo 

& 22) chear’to 6 79 

set confirm on 


ans S$"yYrnn" 


if upper(ans) = '"'y" 
ocated = .f. 
checked = .t. 
mfname = first_name 
mlocation = location 
else 


gilts 
G@ il,c clear to ly 79 


re | 
CN 


xX supply use 


endif 
enddo checked 
do while located .and. checked .and. .not. eof() 


addowner = ce 
endif 


if last name = mlname 
checked = .f. 
else 
Focatead = .f. 
addowner = .t. 
endif 


if location = "HOME" 
located = .t. 
checked = .t. 
endif 


enddo located and checked 
enddo located 


1f addowner 
no_fname = .t. 
do while no_fname 
@11,5 say "first name: "' 
@ll,c get mfname picture "@!A'" 
read 
if mfname = blank 
@22,20 say "A first name or first"+; 
HJ iNleEal 1s required! 


& 


aoe 
do while “delay eZ 9 
delay = delay + l 
enddo 
@e22,0 clear to 22,79 
else 
no_fname = .f. 
endif 
enddo no fname 


@ 12,9 say "office: " 
@12,27 say "(bldg- room) "! 


no_office = .t. 
do while no_office 
@12,c get mlocation PICTURE "@! (A-999)" 


read 
me miocation = space (8) 
oe 22,28 say "Office may not be blank" 
ela 


do ay 2 delay < 2D 
delay = delay + 1 


enddo 

@ 22,0 clear to 22,79 
else 

Moeoreuce = .£ 
endif 


enddo no office 
endif add owner 


case mloc_code = "§'!! 


io) 0 Guess to 15.79 
@ 11,8 say "custodian: AS DEPT! 


@ 12,9 "Veeation: (1-200)" 
mlname = 5 DEPT ‘ 
mfname = "C3 =200). "" 

mlocation = "STORAGE " 
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kX chéck to see 1f on £112 
select owners 
goto top 
addowner = .f. 


if eof() 
addowner = .t. 
else 
locate for last _name = ee le » ATC 
first_name = trim(mfname) .an 
location = trim(mlocation) 


endif 
16 Snot SOU) 
‘addowner = 
endif 
* lab use 
case mlececodem—— | 
@ 9,0 clear to 15,79 
@10,5 say "A - iE: eet Reon C - Sean 
@ 11,8 say ' B - (I-158) Back D I-250)" 
: 13,3 say "Enter one of the above lab location > oy! 
a confirm off 
de while .not. lab $ "AaBbCcDd" 
lab =u 
@ 13,41 get lab picture "@!A" 
read 
enddo 
set confirm on 
mlname = "AS DEPT “ 
mlocation = "LAB ut 
do case 
case upper(lab) = "A" 
mfname = "(I-158)F" 
case upper(lab LB 
mf fhe = a -158)B'" 
case BREE = ''Ge 
mfname = ¥ I-224)'! 
case upper(lab) = "Dp"! 
mfname = '(I-250)' 
endcase 


* check to see if on file 
select owners 
goto top 
addowner = .£. 


1f eof() 
addowner = .t. 
else 
locate for last _name = Lr agemiaane? .and.; 
first _name = trim(mfname) .and. 
| location = trim(mlocation) 
endif 


if nee. Soe). 
‘addowner = , 
endif 


x home use 
case mloc_code = "H'!! 
mlocation = "HOME : 
no_lname = .t. 
do while no_lname 
@ 9,0 clear to 15,79 
@ 9,6 ey “Cus toda" 
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* check to see if 


"last name: !! 
miname PICTURE 


ce toyo. sa 
@10,c ge 
read 
if mlname = space(15) 
@ 22,24 say "Custodian's name may not be blank’ 
delay = 0 
do while delay < 25 
delay = delay + 1 
enddo 
@ 22,0 clear to 22,79 


Naral 


noliname = .f. 


enddo no last name 


Onwti le 
select homes 
GOES EOD 
searched = .f. 
located 
checked ¢ 
addowner = 
addhome = .f£. 


do while .not. 
ae Of 
Seameeneds > 7 t. 
ease 
seek trim(mlname) 
Shier 


1f .not. found() 
searched = .t. 
addowner = .t. 
addhome =.t. 
endif 


ine samenitotell )) 
searched = .t. 
located = .t. 
elreckecd) — rn. 
mfname = first_name 
fire etm SCP eer 
Me Leyva CiLey 

endif 

enddo not searched 


do while located 
do while .not. 
1 say 
ia , say 
F279 . say 
12,c say 
io, ie say 
13,c say 
14,10 


say 
14,c say 


set confirm 

ans = =i iI 

do while .not. 
Anse i otf 
@ Bete e AY | | 

ams Ens he COrrece custodian’: =!" 

@ 23,34 say "{ Yes / No ]" 
@ 22,56 get ans picture "@!A" 
read 

enddo | 

set confirm on 

Ge22 0 cléam to .23,79 


1f upper(ans) = "'Y" 
ocated = .f. 


Kh 


= 


e 

e 
oa a @¢ 

e 


searched 


checked 

Perot mame: | 
first_name 
"Street: ' 
street 

Ge 1 tee: 11 

ut 

"ohone: !! 
phone 


our 


OM 


DADO OOM Mm 


ans $"'yYnN" 


cneeked = .€. 
else 
checked = .t. 
> ihieec clear to 14,79 


endif 
enddo checked 


do while located .and. checked .and. .not. ecm 


if Soae 
located? = ab. 
addowner = .t. 
addhome = .t 
endif 
1£ last name = mlname 
checked = .£. 
else 
located = .f. 
addowner = .t. 
addhome = .t. 
endif 


enddo located and checked 
enddo located 


1£ addowner 
no_fname = .t. 
do while no_fname 
Qo tls say "first name: "' 
@ll,c get mfname picture "@!A" 
read 
1f mfname = blank 
@ 2220 say “Av first name or first"+ 
oa " initial is required't 
ela 


do ahile. delay <m25 
delay = delay + l 
enddo 
Ge72 0 clearsto 22,79 
else 
no_fname = .f. 
endif 
enddo no fname 


no_address = .t. 

do while no_address 
@ ; say "street: !! 
@i2,c get mstreet PICTURE "@!" 
GMs 11 «Say "“ceaey: " 
@i13,c ge mcity PICTURE "Gir" 
@14,10 say "phone: " 
@14,¢ get mphone PICTURE "(999)999-9aam 


if mstreet = space(25) .or. mcity = blank 
ei m2, 25 a "Street or City may not be blank" 
ela 
do wef! delay <i 
delay = delay + l 


enddo 

Ge. 0 ciwar to 22,79 
else 

no_address = .f. 
endif 


enddo no address 
endif addowner 
endcase location code 


* enter property type (mandatory) 
set conrirm off 
@16,2 say "property type: " 
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Geom Omeay (Plant / Minor / Other)" 
@ BES Sememecype PICTURE "“@G!IAl" - 


rea 

GCeevotlessnot. mptype $ "mMoOpP" 
mpt rpe — ee 
@16,c get mptype PICTURE "'@!A" 
read 

enddo 


set confirm on 


x no property# for other type property 
ee Reber (net ype} = figu 
ee = space(l10) 
endl 


x enter property# (mandatory for plant and minor BaeeY types) 
ee Bee ee Sue or. upper (mptype) = "Pr" 
17,5 say "property #: " 
NOU = .ct. 
do while no_num 
@17,c¢ get mpnum PICTURE "@N!" 
read 
ibe mean = space(10) 
Meeoesay Minorsand Plant property''+; 
" require a property number'! 


&& ensure it is blank 


delay = 0 
do while delay < 25 
delay = delay + l 


enddo 
Geez oe clear to 22,79 
else 
no_num = .f. 
endif 
enddo 
endif 


x enter price and requisition# 
Galo” say "prices Ss! 
@ 20,9 say "reqn #: " 
cee ce getiilnmice rr tenuRs GR 99,999.99" 
@ A get mreqn PICTURE "@!R 9999-NNNN/NNNNN' 
rea 


x allow porting or abandon current entry 
Cenc lear teres ia | | 
@ 22,23 say 'Is the above information correct?: :" 
@ 23,28 say "| Yes / No / Abandon |'" 


set confirm oft 


eli sae 

do while .not. ans $ "yYnNaA! 
ans = ou 
@ 22,57 get ans picture "@!A" 
read 

enddo 


O22 oc lear tou23,79 
set confirm on 


* clear mvar_that controls creating a new owner or home record 


if upper(ans) = ''N'! 
addowner = .f. 
addhome = .f. 
ie Sted tO g20, 79 
endif 


if upper(ans) = "A 
Se eecontirm. off 
close databases 
release all 
return 

endif 


* abandon entry -> clear mvar and close any open dbf 


4) 


A 


into doe 
upper(ans) = 
ienee rinG eam 
endif 


enddo entering 
@ 22,20 say 


place in owners 
location = HOME for home use 
location = LAs for lab use 
1f addowner 
select owners 
append blank 
replace last_name with trim(mlname) 
replace first_name with trim(mfname) 
replace location with trim(mlocation) 


lace entr 
ve 


ped && add mvar to dbf 


"Standby while your entry is placed on file" 


endir 
place in homes 
if addhome 
select homes 
append blank 
replace last_name with trim(mlname) 
replace first_name with trim(mfname) 
replace street with trim(mstreet) 
replace city with trim(mcity) 
replace phone with mphone 
endif 
place in comps 


select comps 
append blank 


replace 
replace 
replace 


ce with trim(mmfg) 
c_mode 
c_desc with trim(mdesc 


1 with Sees 


replace 
replace 
replace 
replace 
replace 


comp_ser with trim(mser) 
c_ptype with mptype 
c_pnum with eee) 
C_price WUEh igmeeee 

c_reqn with trim(mreqn) 


replace 


last_name with trim(mlname) 
replace 


first_name with trim(mfname ) 
replace loc_code with mloc_code 
replace issue_date with mtoday 


@ 22,0 clear tomaemne LS 
@ 22,18 say "Do you have additional components to enter?: :" 
@ 23,28 say "{ Yes 7 sNow" 


set confirm off 

ans = 1 i! 

do while .not. ans $ "yYnN" 
ane = ttf 
@ 22,62 get ans 
read 

enddo 


if upper(ans) = 
per a ; 
clear 


Upyul 
ta 


els && set up for the next one 


2 
@ 22,0 clear to 23,79 


entering = .t. 
addowner = .£. 
addhome = .f. 
mmfgq = blank 
mmod = blank 
mdesc = space (50) 
mser = blank 


mptype = moo 
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mpnum = space(10) 
mprice = 0.00 
mreqn = blank 
mloc_code = "' " 


Gere Oo clear to 23,79 
@ 22,17 say; 


"Ts the next component for the same custodian?: :" 


@ 23,31 say "{ Yes / No ] 


ans = ot 

do while .not. ans $'yYnN'"! 
ans = Ui 
@ 22,63 get ans 
read 

enddo 


set confirm on 
G27 Wircilear to ww3e79 


ie Epp ensus) = "'N" 
m 


name = blank 
mfname = blank 
mstreet = space(25) 
mcity = blan 


mlocation = space(8) 
mphone = space(13) 


endif 
endif set up 
@ 3,0 clear to 20,79 
enddo finished 


Set Comeinm Off 
release all 
close databases 
return 

enddo 

* EOF addcomp.prg 


2 ADDMENU.PRG 


KKAKKKKKKKKKKAKKAAKER Program: ADDMENU.PRG 
SOMENOr ss aaneeas.: TIM SEXTON | 
RIUIIIO SC 440 ssa so es 0 : Menu displays the choices: 
a pants 

Calls Se Reet eRt cis) siete es ; PPEGOUE- PRG A DDPART .PRG 


XInput/Output Files.: NONE 


Xset up the screen environment 


eee as 
Sew COnLLrm Cue 


* display the dialogue menu 
do while .t. 


2,10 to 13760 dope 
3507 Say Bsn eaey Entry Menu" 
4,11 to 4,68 double 


@ 
@ 
@ 6,27 say " - COMPONENT entry" 
G7 Z2iesay *\" - PART entry" 

@ 

@ 


S72 say "' = Eien. 
Piece say" RETURN to main menu!" 


oO Tm Nr 
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RAARKAKKKAKRKKAKAKARA 


enter components or 


@ 13,30 say " selection: : ! 


cholee =) an 
@ 13,42 get choice 
read 


- place an asteriks next to a valid choice and erase all other 
rows 


if .chouce Se eho hz 
do case bengice) eae 
casé upper (choree ))— an 
@ OPT: Say 
choicerow = 9 
case choice = "0! 
@ 11526 save 
choicerow = 11 
otherwise 
@ Stval(ehotce = 26mmcove 
choicerow = 5+val(choice) 
endcase 


firstrow = 6 
rows = 7 
rowcnt = 0 
do while rowcnt < rows 
1f rowcntt+firstrow <> choicerow 
@ firstrowtrowent,27 say space(25) 


endif 
rowcnt = rowcnt + l 
enddo 
endif 
x do a valid choice or loop back thru this program 
do case | 
case choice = "Q" 
recuincn 
case choice = "1" 
do addcomp 
case choice = "2! 
do addpart - 
case UPS eae =n" 
do add_help 


otherwise 
@ 17,22 say '**k***k not a valid selection ***x*xx" 
5 


wait 
loop 
endcase 


enddo 
“EOF ADDMENU.PRG 


3. ADDPART.PRG 


KARKKKKKKKKAKKKKAKKK Program: ADDPART.PRG KAAKKKKAKARKKKKKR 
AButhor...ceseesense: MIMRCEenGR . aa 
XPurpoS@..........5.: @nter parts and place into PARTS, a4ssia@neae 

a the part to storage or to a component on file 
*Ca lie .. «eet... Heer 

*Reserved.....g...-..: ‘Orme 


*Input/Output Filest: "PARTS.DSr COMpa ver 


clear ' 
set confirm on 
set exact on 


select b 
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use parts index c_ser 
select a 
use comps index comp_ser,name_loc 


Go walle: s&s 


blank = ana 

mmod = blan 

begs = space (50) 
_ser = 

li? _ser = blank 

mp type - will 


mpnum = space(10) 


mprice = 0.00 
mreqn = blank 


entering = .t. 

still_more = .t. 

eridcniec — est. 

cee?) say  P A Rog E N@T_R Y 
@1,0 to 1,79 double 


Seer EO EB N- 


@3,0 say "Enter Part Information: 


eect 0 toi (Zi 2 


do while .not. finished && entering parts 
do while entering && part information 
G@ 57160 sayeumodedine"’ 
GW ewecvesemtdl Ft: " 
@ 7,4 say "description: " 
@ 22,25 say "To EXIT leave model blank! 
* entries begin at column 18 
c = 18 


xX enter model or exit 
5,c¢ get mmod PICTURE 

read 

1£ mmod = blank 
set genfirm off 
close databases 
release all 
return 

else 


NaN}! 


Ge22,0 clear to 23,79 


endl 
* enter mfg serial# 


6,c get mp_ser PICTURE "@N!" 


read 
* enter description 


7,¢ get mdesc PICTURE "@N!" 


bed 


determine 
set confirm off 

9,1 say 

9,20 say" (Stomage 


@ 
@ 9,c get p_use PT erURE 
read 


if stock or component use 


i. use: " 


iW 
Component) 


do while snot. p_use $"Cesis" 
use = 
a oe, Ee get p_use PICTURE "@!A" 
read 
enddo 


set confirm on 


x enter component serial# for use 
x comp_ser = blank for storage use 


= C, search to see if on file 


x use comps for use = C component ser # mandatory 
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* storage use 
Tf pesos o. 
mc_ser = blank 
endif 
x component use 
if p_use ee 


@ 10,0 cléearstomire9 
@ 11,6 say "Component" 
@12,6 say "serial #: " 


searched =< £. 
do while .not. searched 
NO_SOCYs = au. 


do while no_ser 
@1i2,c get mc_ser PICTURE "@!IN'! 


read 
if mc_ser = blank 
@ 22,20, say. 
ae “component's serial # may not be blank" 
ela 


do ite delay < 25 
delay = delay + l 


enddo 

@ 22,0 clear toga2 ,739 
else 

nossers= FF. 
endl 


enddo no component serial# 


*x check to see if on file 
select comps 
set order to l “ 
goto top 
on_file = .f. 
done = .f. 


if eof(). 

on_file = .f. 
else | 

seek trim(mc_ser) 
endif 


if found® 
Sie oige ie Cla Ge 
on_file = .t. 
done = ae. 
endif 


if .not. etd @mmor. .notewonwe T= 
@ 22,22 say "Component not on file !!!" 
ee 0 
do while delay < 25 
delay = delay + l 


enddo 
@ 22,0 clam to 22,79 


$ét confirm off 

ans =~ MW 

do while .not. ans $''yYnN" 
ans = Tt 
@ 22,20 say "Is this the correct senial Ga 
@ 23,26 say "(| Yes / No |" 
@ 22,50 get ans picture "@!A" 
read 

enddo 

@122,0 Glem@reto 28,79 

set confirm on 


if upper(ans) = "Y" 
enterin 


2. 
searche ie. 
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Biadiomore. = .£. 
done = .t 


@ 22,15 say; 
Pe ws Somponent must De entered first" 
ela 


do aoe delay < 25 
delay = delay + l 


enddo 
(meee Clear to 22,79 
else 
@ 22,15 say; 
"Please re-enter the component serial#"' 
delay = 0 


do while delay < 25 
delay = delay + 1 
enddo 
i@e2c, ©eciear to 22.79 
mc_ ser = blank 
encase 


endif not found 
enddo searched 
endif 
1f still_more 


* enter property type (mandatory) 
on off : : 
say "proper : 
@ 14,20 ay plant 5 Wor / Other)" 
@ De ,c get mptype PICTURE "@!A" 
rea 


do pi not. mptype ee meODr" 


@14.c C ot mptype PICTURE '"'@!A" 
as 
enddo | 
set confirm on 


x no property# for other type propert 
a s a upper(mptype) = "0" ‘ && ensure it is blank 
mpg = space(10) 
endl 


* enter BOP ery (mandatory for plant and minor pages’ ’y. types) 
ert Seay Se Oks upper (mptype ) 
; aaa property # : 
no_num =. 
do while - _num 
@15,c get mpnum PICTURE "@N!"'! 
read 
er oS = space(10) 
12 say "Minor and Plant property "t+; 
"require a property number He 
oe 
do w ile” delay < 25 
delay = delay + 1 


enddo 
(Qez2,.0-ellear to 22,79 
else 
no_num = .f. 
endif 
enddo 


endif 


* enter price and requisition# 
17,10 say "price: a 
@ 18,9 say "regqn 
@ 17,c get mprice PICTURE "@R 9,999.99"! 


@ nee -o Gee meegqn PICTURE "“@!k 9999-NNNN/NNNNN" 
rea 
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* allow eametng 3 On py eeeen NBR 
clear to 
3 55 20 say "Is the above information correct?: :" 
@ 23,26 say "[ Yes / No / Abandon ]'! 


set confirm Off 


ans = '' 

do while -not. ans $ 'yYnNaA'" 
ans = ' 
@22,54 get ans picture "@!A" 
read 

enddo 


G 22,15 ClearweGoma 2 
set confirm on 


* clear mvar that controls creating a new owner or home record 
1f upper(ans) = ''N" 
é*5 ,O cledriearZ0 72 
endif 


* abandon ewes -> clear mvar and close any open dbf 
upper(ans) = "A" 
set COnmm@inm oe: 
close databases 
release all 
Ge U ian 
endif 


* place entry into dbf 
lots upper (ans) = yl && add mvar to dbf 
entering = .f. 


@ 22,10 say; 
" standby while your entry is placed on file " 


* place in parts 

select parts 
append blank 
replace p_model with trim (ee 
replace p_desc with trim(mdesc 
replace part_ser with trim) mp_ =o) 
replace aaa ser with trim(mc_ser 
replace ype with mptyp 
replace Smear with cram etter 
replace p_price with mprice 

E a p_reqn with br thereat 

endi 


endif still more 
enddo i 


@ 22,0 clear te 22772 
G22 is say "Do you have additional parts to enter?: :" 
@ 23,26 say "[ Yee / mie 7" 


set confirm off 


ans = '! 

do while .not. ams 5 “yumi 
ans =! Wl 
@ 22,54 get ans 
read 

enddo 

if upper ans) = i 
pper jane) ‘ 
clear 

else && set up for the next one 
@ 22,0 clean “ten23 ie 
entering #4. 
Still_more = .t. 


mmod = blank 
mdesc = space(50) 


48 


mp_ser = blank 
mptype = tt tt 
mpnum = space(10) 
mprice = 0.00 
mreqn = blank 


Cote) gees iS 23,79 
slg upper ( _use) = '"'C" 
22,15 say "Is the next part for the same component?: :' 
Se2orcs aay me yes / No }" 


ans = "Ul 


Seev ile nee. ans > 'yYnN" 
ans = itt 1 
@ 22,56 get ans 
read 

enddo 


set eenesem on 
GezZ7-0 clear to 23,79 


avs cpper (ans), = "N" 
mc_ser = blank 
endi 
endif p_use =C 


endif set up 
@ 4,0 clear to 20,79 
enddo finished 


Set ugentirm off 
release all 
close databases 
return 

enddo 

x EOF addpart.prg 


4. ADD _HELP.PRG 


KREEARKRKKKKKKKRKKAKRKRKKKR Program: ADD HELP.PRG KAAKKKKRKKKKKRKAKKAKE 
» 
IONS «so coagea seis ss ties LON | | 
“Purpose es ee : describes the options available to the 
user 
“Calls ee TT 6 aS : None 


*Input/Output Files.: None 


* begin the text dialogue 
clear 


@0,17 say "ENTER baenkeo fF fF oR fT Y HE LP Mean Ut 
: De to 1,79 double 
ex 


* Designed to enable the user to enter all new 
Property either a Component or Part. 


x Entering selection is extremely important!!! 
Ensure all the information is correct. 


* If errors are made, the user should ensure that 
"NO" or "ABANDON options are selected before 
COntinUang on. 


x If a false record is filed by mistake then 
GOTO the "MODIFY or DELETE" section and follow 
the instructions to correct the mistake. 


endtext 
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@ 21,0 TO 21,79 - | 
Wane " -> press any key for more help or ESC to exit! 
clear 

@1,0 to 1,79 double 


ECXE 
"CAUTIONS" 
x Extremely important that all information is 
entered correctly 
x Mistakes will be made so utilize the "NO" or 
"ABANDON" commands before resuming 
x Recommend using DELETION and ARROW keys for 
modif ang data entered so not to deviate 
outside designated fields 
endtext 


@ 21,0 TO 21,79 | 
WAIT " -> press any key for more help OneEnS@etay agar” 
clear 

@1,0 to 1,79 double 


CEXE 
"WARNINGS" 
x Use of BACKSPACE key can cause PREMATURE exitin 
of an entry field, loop back for re-entrance o 
data. 
x Serial Numbers must be accurate and precise 
ee oe 
@.2),,.0 to021,, 72 | 
Walt "' -> press any key to exit" 


XEOF ADD_HELP.PRG 


>; ADHOC.PRG 


REAKRARARKRKKRAARKAARK = Program: ADHOC.PRG  *XAXKAKARARARARARAKKARK 
x 


SAUCHOL. . sma.» olgeis os 5 | 
APUPDOSC .. ..ccie ene : display the menu for queries and lists 
“Cal Sie ce new ee eee es )|«6OOUERTION. PRO, SOWIE .FRG, OF FG 


. PMOD.PRG, PMANF.PRG 
*Input/Output Files.: None 


do whrles.:. 


xX re-set the system incase a uber ES@aped ollt of cre of Cie 
* program selections 


release all 
close databases 
set confirm off 
clear 


x display the menu 
@ 2,10 3ae 17,69 double 


3,19 say List and Searh Menu" 
4,11 to 4,68 double 
6,21 Sey | - Components assigned to a Custodian" 


i 

2 - Components assigned by Locations" 
say "' 3 - Custodman Distrag™ 

4 

5 


- Components of a single Manufacturer" 
- Components of a single Model" 


Om DAM fla 


50 


@ 13721 say ‘weH - HELP" 


@15,21 say "0 - Return to MAIN MENU" 
Geli eeesay oecerection : : " 


enorce = lel 
@17,42 get choice 
read 


* place an asterisks next to a valid choice and erase the other 
* selections 


1f choice $"hHO12345"! 
doncase Mee a 
case upper(choice) = "H 
@ £220 say fs 
choicerow = 13 


case choice = ''0!! 
Gets) 20 sasay Nx" 
cholicerow = 15 


ease uchoree ($"123' 
Gee achotee), 20 say "*" 
choicerow = 5+val(choice) 


otherwise 
@ 6+val(choice),20 say '"'*" 
choicerow = 6+val(choice) 
endcase 


firstrow = 6 
rows = 10 
rowcnt = 0 
do while rowcnt < rows 
1f rowenttfirstrow <> choicerow 


x do the choice selection if valid or loop back thru this 
* program 


do case 

case choice = "0! 
clear 
release all 
return 

case choice = "J!! 
do sowner 

case choice = "2" 
do slocataren 

case choice = '!'3" 
do owners 

case choice = "4" 
do pmanf 

case choice = "5" 
Oo pmod 


case upper(choice) = '"'H'! 
io ee, ae 

otherwise | | 
g Doe 224s oe =~ NOteamvalid selection ******" 


wait 
@19,0 clear to 21,79 
loop 


enddo 
XEOF ADHOC.PRG 


6. DELCOMP.PRG 


KKKKKKKKKAKKKKKKKEKR Program: DELCOMP.PRG KKK KKK ARK RR RK 
*AUENOR 6 + 4. Si, een TIM SEATON 

*Purpose.....+......: delete components and place volanewon Gao: 
propeucy in shistom, 

*Cal linc. ss s,s 0c oe 

*Reserved......s+: sa tleme 


*Input/Output Files.:  PARES-DBr, colro.Dpl, nlowon: wom 
“s OWNERS ; OBE serne@nio., OS & 


etean 
set confirm on 
Selecuee 
use history 
Se ect. Cee . 
use parts index c_ser && indexed on comp_ser 
Semeet Came 
pe homes index l1_fnames && indexed on last,first names 
select 
use owners index names && indexed on last,first names 
Seleucia = . 
use comps index comp_ser,name_loc && indexed on comp_ser 
&& indexed on last,first names 
Go Witaske we te 
blank = space(15) 
mmfq = blank 
mmod = blank 
mser = blank 
mloc_code = " "! 
mptype = will 


mpnum = space(10) 
mtoday = date( ) 


lname = blank 
fname = blank 
mpart_ser = blank 


entGring = .€. 
finished = .f£. 
cencome = aie 
delpart = .f. 


@0O,16 say ' C 0 Map Og net De LET I OF > CR Ese ae 
@1,0 to 1,79 double 

G@ 3,0 say “Enger Component” 

@ 21,0 to 21,79 


do while .not. finished && deleting a component 
do while entering && componenet information 
* entries begin at column 18 
c = 18 
searched = .f 


do while vnot. searched 


x enter serial # or exit 
2,96 Say “Gite: " 
@ 2,61 say mtoday 


@Q 4,7 say "serial #: Mo 
@ 4,c get mser PICTURE "@N!'' 


@ 22,25 say "To EXIT leave serial # blank" 


read 

1f mser = blank 
close databases 
release all 


Can 
tJ 


* check to see 


el 


return 


se 
@eZZ250pelear to 23,79 


endif 


ion. £2 he 
select comps 
set order to l 
goto top 


Ons fake t= ack 
EGrrect = 


if .not. eof() 


f 


Semone On 
seek trim(mser) 


else 
on_file = .f. 
SOrrect = 7f, 

endif 

if eoOuUrc 


CORrect =... 

mmnod = c_model 

mmfg = c_mf 

Mptype = c_ptype 
mpnum c_pnum 

lname = last_name 
fname first_name 
mloc_code = loc_code 


6,0 clear to 10,7 
apezeesay mig: " 
SiC say C_mig 
,10 say "model: " 
Sayecamodel: . 
; say "description: " 
; say c_desc 
; say "property type: " 
o case : oo 
case c_ptype = 
@9,c say "Plant" 
Gasegcmptype = UM" 
me say Minor" 
otherwise 
@9,c say "Other" 
endcase 


if c_ptype = "M" .or. c_ptype = "P"- 
1d, pigP 5 


7 
Z 
8 
8 
s) 


2.1) (a) () (a) (a) (a) (a) (a) 
MOA PAF 


say "property #: " 
10,c say c_pnum 


endif 

Set Contirmeobe 

ans = il 

d@ while .not. ans $"yYnN! 


ans = te 


@ 22,22 say "Is this the correct component?: 


@ 23,29 say "{ Yes / No 
Gee 53 get ans picturem@ve!aA" 
read 

enddo 

set confirm on 

@ 22,0 clear to 23,79 


if upper(ans) = '"'Y" 
On fie = .t. 
searched = .t. 

ese | 
onan le 
correct 


ae 
Aue 
@ 22,11 say 


Oo wil i 


pecy = 
do while delay < 40 
53 


"The component shown is the only "t+; 
"Onemon file with this serial #" 


delay = delay + 1.- 


Q@ 22,0 clean te 22772 
@ 22,13 say "Your Component is Het on 
"file no need to delete it" 

CG 0 
do while delay < 40 

delay = delay + 1 
enddo 
@°2z0 sclear= to. 22700 

endif 


endif found 


VE 


aoe found() .or. ;not. €ereecer 


22,26 say "Component not cmmeile '1!" 
Ge area 0 
do while delay < 40 
delay = delay + l 
enddo 
@ 22,0 cle@r to 22,73 


do while -not. ans > yacnns 
ans =! 
@ 22,22 say "Is this theecornmeet serial Has am 
@ 23,28 say "[ Yes / No |" 
@ 22,52 get ans picture “@!A" 
read 

enddo 

@ 22,0 clearitowzs ,72 

set confirm on 


if upper(ans) = "Y'! 
COmmeeE ee 
Onwerle .f£. 
@22,15 say "Your componént is not on f1le™ie 
0 " no need to delete it’ 
ela 


= 0 
do sale delay < 40 
delay = delay + 1 
enddo 
@ 22, Omelear eto 22/79 
else 
correct = .f. 
@ 22,20) Say ; 
"Please re-enter the component serial # or" 
neers 0 
do while delay < 40 
delay = delay + l 
enddo 
@ 22,0 clear “to "22,79 
mser = blank 
endif 


endif not found 


me 


not. om film .amd. correct 


@ 22,15 say; — 
"Do you have additional components to delete?: :'! 
@ 23,29 aay "| wet / He |” 


set confirm of 
i 


do while .not. ans $ "yYnN" 
ans =!!! 
@ 22,60 get ans 
read 

enddo 


suet confine on 


if upper(ans) = "N" 
S@t confirm ore 
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x check to 


release all 
close databases 


return 

else 
mser = blank 
correct = .f. 


@a6-0 clear to 10,793 
@ 22,0 clear to 23,79 
endif 


endif not on file and done 
enddo searched 


see parts are on file for this component 
select parts 
goto top 


it PE Cua) 
delpart 
delcomp 
else 
Selee Mate kon . 
seek trim(mser) && component serial # 
endif 


if .not. fowyel( ) && no parts for this component 
delpart =.f. 
Gelcenpmasm tc. 

endif not found 


Ge 


ae ae a 
"The, ei owin PART(S) are on file for this component: 
@il say "Model" 
@ 14. ie say poeeperty Type" 


@ 14,36 say "Property #" 
line = 15 
do while comp_ser = mser .and. .not. eof() 
@ line,5 say p_model 
@ line,23 say p_ptype 
@ line,36 say p_pnum 
skip 
line = line + 1 
if line = 20 
@ 22,23 say "Additional parts are on file" 
delay = 
do while delay < 750 
delay = delay + 1 
Ae 
GaZ2,0nclear to 22,79 
Gels) @ Clear to 59,79 
line = 15 
endif 
enddo 


Q27 0ecléar to cosmo 

@ 22,19 say "Do you wish to delete the PART(S)?: :' 
@ 23,26 say | Yes / No ]" 

set confirm off 

ans = il 1] 


dem mame: -not. ans S$ “vyYnN" 
ans. = Wo 
@ 22,54 get ans 
read 

enddo 


set confirm on 


ie yrgsmians = IN" 
@zeo clear to 23, 
@ 22,5 say "The eaRT (Ss) must be reassigned''t+; 
ae " before this component can be deleted" 
ela 


do while” delay < 40 
5 


delay = delay + 1 


enddo 
@ 2Z2,@ clear to wZ2 7a 
@ 22,16 say; 


"Do you have additional components to delete?: ;" 
@ 23,29 say "{ Yes / No }" 


set confirm GLE 


ans = 

do while snot. ans S Uy inn" 
ans = '! 
@ 22,61 get ans 
read 

enddo 


set confirm on 


1f upper(ans) = "N! 
set confirm off 
release all 
close databases 
return 

else 
mser = blank 
G 22,0 GilleamEEO 25.79 
@4,0 clear to 20,79 


endif 
else && ans = yes 
delpart = .t. 
cesar = .t. 
@ 22, clear to 23,79 
endif 
endif found 


ats BS en 
x allow editing or abandon current entry 
22%0 clea tows, 79 
@ 22,16 say "De you wish to deléeté this component? - 25s 
@ 23,26 say "(Yes / No |" 


set confirm ont 


ans =" U 
do while .not. ans $ "yYnNaA" 
ans = "Wl 
@ 22,54 get ans picture "@!A" 
read 
enddo 


G@ 22,15 clean tems, 74 
set confirm on 


* clear mvar et controls deleting a component or part record 
FE Bone = "N" 
20 5 ay "Please re-enter a component serial # or" 


Cn 

ile delay < 40 
delay = delay +l 

enddo 

@ 22,0 clear to 22,79 


mser = blank 
delcomp = .f£. 
delpart = .£. 


@9,0 clear to 20,79 
@4,0 clear to 20,79 


endif 

if upper(ans) = "y" && delete records 
entering = : 
@ 22,0 élear to 23,79 

endif 


endif delcomp 
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enddo entering 


@ 22,20 say " Standby while the component is deleted " 
if delcomp 

select comps 

goto top 


set exact on 


delete 


for comp_ser = trim(mser) 


select history 


append 

renlace 
replace 
replace 
replace 
replace 
replace 


blank 


ed with trim(mmfg) 

model with trim(mmod) 
serial_num with trim(mser) 
ptype with mptype 

pnum with trim{mpnum) 
del_date with mtoday 


endif delcomp 
1f delpart 


select parts 
goto top 

Se tye mac hao 
seek trim(mser) 


LE found® 
do while mser 


Gigim Comp ser). .and. .notew cof ) 


MPae SCiemapabt ser 


mmod 


= p_model 


mptype = p_ptype 
mpnum = p_pnum 


if upper(mptype) <> "0" 


&& only plant or minor 


select history 


append b 
replace 
replace 
replace 
replace 
replace 
endif 
skip 
enddo 
endif 
select parts 
goto top 


set exact on 


delete all for comp_ser = 


endif delpart 


Panis ; 

model with trim(mmod) 
serial_num with trim(mpart_ser) 
ptype with mptype 

pnum with trim(mpnum) 

del_date with mtoday 


trim(mser) 


* check to see if owner has more property on file 


select eonps 
set order to 2 
goto top 


set exact off 


seek trim(lname),trim(fname) 


endif 
LE Gnoteeround( } 
delowner = .t. 


delhome = .t. 
endif not found 


if found) 
delowner = .t. 
delhome = .t. 


5] 


do while last_name = tr aneLname,) -, aaa. 
first_name = trim(fname) .and. .not. eof() 


do case 
case upper(loc_code) = '"'H'"' 
elhome = 
delowner = .£. 
case uppem(loc_code) = oe” 

elowner = 

endcase 

skip 

enddo 


endif found 
* no need to delete AS DEPT (labs or storage) 


if mloc_code = "L" Jeoreemtecrcode = “Se 
delhome = .f. 
delowner = .f£. 

endif 


1f delowner 
select owners 
set exact off 
6to toe 
elete for last_name = trim(lname) .and. 
first_name = t'rim( fname) 
endif 


1f delhome .and. mloc_code = "'!'! 
select homes 
Goto top 
set exact off 
delete for last _name = fase Lnane), eand. 


irst _name = trim( fname ) 


select owners 
set exact off 
oto top 
elete for last_name = trim(lname) nil. | 
Z . first_name = trim(fname) _ ate location = 
endi 


@ 22,0 Clee tose 
@ 22, 16 say "Do vou have additional components to delete?: 
@ 23,26 say "[{ Yes / No J" 


set confirm Ofer 


ans = '! 
do while -not. ans S$ "yYnN" 
ans = '! 
@ 22,61 get ans 
rea 
enddo 
if upper(ans) = "N" 
per aT ae, 
clean 
else && set up for the next one 
@ 22,0 cl®@™r to 23,79 
mmfg = blank 
mmod = blank 
mser = blank 
mloc_code = '' "! 
mp type - will 


mpnum = space(10) 
mtoday = date( ) 


lname = blank 
fname = blank 
mpart_ser = blank 


entering = .t. 


Pemeied = .f. 
endif set up 
@ 4,0 clear to 20,79 
enddo finished 
@8,15 say "xxxxx Standby while the files are updated RAR KI 


select comps 
pack 
Select parts 
pack 
select owners 
pack 
select homes 
pack 
set confirm off 
release all 
close databases 
recurn 

enddo 

pO: delcomp:prg 


7. DELMENU.PRG 


KKEKKKKARKKKAKKKRKKAK KR Program: DELMENU.PRG KRRKKKRKKKKKKKKKAKKK 
OY 2 ess sees areas oy Lice TON 

Saagecac.... eon ais hays the chozrce to delete parts 

* or components, and place them in the history 


file 
Maeno. le. > )|6DELCOMP. PRG, DELPART.PRG 
XInput/Output Files.: None 


* set up the screen environment 


eke ar 
Soe econrirm off 


x begin the menu dialogue 
do while .t. 


clear 

@ 2,10 to 13,69 double 

@ 3,30 say "Delete Property Menu'! 

@ 4,11 to 4,68 double 

G@ 6,27 say " 1 = COMPONENT deletion" 
Goi yes say ' Zeamween? deletion’! 

peo 27 Savelen =o neELe" 

Gully 2/ say" 0 reneeertatowinain menu" 
Gils; 30 say™™ selection : : ™ 

ehervee, = o's" 

@ 13,42 get choice 

read 


* place an asterisks next to a valid choice, and erase the other 
x rows 


1£ cheice S$ "HHO]2" 
do case . 

case Upp acerce = "yt 
@ 26 say Uru 
choicerow = 9 

case choice = '"'0Q!! 
@wezs say "*" 
choicerow = ll 


otherwise 
@ Stval (choice )) 2o0mesay a. 
choicerow = 5+val(choice) 
endcase 


firstrow = 6 
rows = 7 
rowcnt = 0 
do while rowcnt < rows 
1f rowcnt+firstrow <> choicerow 
@ firstrowtrowcnt,27 say space(25) 


endif 
POVCHEL = YOwenta te. 
enddo 
endif 
x do a valid choice or loop back thru this program 
do case 
case choice = '"'Q" 
return 
case choice = "j" 
do delcomp 
case choice = "2"! 
do delpart — 
case up er chen eer! 
do del_help.prg 
otherwise | | 
@17,;22 say "*=e"22"n0t avvalid selection 
= 
walt 
loop 
endcase 
enddo 
x EOF DELMBHU.PRE é 


8. DELPART.PRG 


KRRKKARKRARKKKARK RK KK Program: DELPART.PRG KAKKKKKKKKKKAERR 
* RATE Ote cea, -s ties eee : TIM SEXTON | 
XPUrpoSe........2...2 Gelete parts and place plant of Minor pragma 
‘i in history 

*¢ Meh S .. Geeremeteie. ohne : None 

*Reserv@d......0....: Meme 


*Input/Output Files.: PARIS.DBF, HISD@RY ‘Der 


clear 
set confirm on 
set exact on 


selecr c 
use history 
Soe eet saa . 
use parts index c_ser && indexed on comp_ser 
Select a”. 
use comps index comp_ser,name_loc && indexed on comp_ser 
&& indexed on last,first names 
do whale . tz 
usage = '' '! 
blank = space(15) 
mmod = blank 


description = space(50) 
mpart_ser = blank 


mptype = tf 
mpnum = space(10) 


component = blank 
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mtoday = date( ) 
mc_mod = blank 
mc_mfg = blank 
mc_desc = space (50) 
NeEwey pe || (10) 
mc_pnum = space 
mane = eG: 

fname = blank 
entering = .t. 
finished = .f. 


delete it = .f. 


eeOrz0 say " P AR T Pee | E& TION Sr Oouk f= NN" 
@ 1,0 to 1,79 double 


Geel to.21 7,79 


do while .not. finished && deleting parts 
entering = .f.. | 
do while entering && part information 
find_use = .t 


do while find_use 


located = .f. 


x entries begin Soe 18 
Cc = 


@ 3,0 clear to 20,79 
2,56 say wadate: "! 


2,6l say ee cey 
3,0 say "Enter Part" 
xX enter use or exit 


4,2 say "current usage: " 
4,20 say "(Storage / Component)" 


et confirmgont Ge 

4,c get usage picture "@N!" 
C eer oe say 'To EXIT leave current usage blank'' 
rea 


do while -not. usage a! sScc™ 


MOM 


Mu Mm 


er = ; 

C ,c get usage picture "@N!!! 
read 

enddo | 

set confirm on 


if usage =" " 
set confirm off 
close databases 
release all 
return 


else 
@ 22,0 clear to 23,79 
endif 


if upper(usage) = "'S'! 
é 370 eee EO: Z0e75 
locating = .f. 
located = .t. 
component = blank 
Cimeausea— ae 

endif 


1f upper(usage) = "C! 
€ 4,0 clear to 20,79 
@ 3,0msay “Enter Component” 
@ 4,8 say "serial#: " 
POSAelngaa— .t. 

endif 
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One Le. = "ae. 
SOUGHEO= a5 sa 


do pa a 


* check to see if 


Ses component picture "GN!" 
Cate Oeaaem 
3 55 16 say; 

To ABANDON component entry leave serial # blank" 
rea 


if component = blank 
locating = .f. 
eed ek 
Or eleas LO 23,79 


els 
‘g 227 0eeliear to 237739 
component on file 
select comps 
Setwoveer, co | 
goto top 
endif 


De RB aoner cor 
‘seek trim component) 
sought = .t 


else 
Orme Ossian f, 
endif 
if found() .and. sought 
mc_mo c_model 


mc migqu= camig 
mc_ptype = c_ptype 
mc_pnum = ¢c_pnum 
lname = last_name 
fname = first_name 


@ 6,0 clear to 10,79 
@ 6yi2 say “meg: " 
@6,c say c_mfg 
@7,10 say "model: " 
@7,c say c_model 
@8,4 say ae i . 
@ 8,c say c_desc 
@9,2 say "property type: " 
do case ee 
case c_ptype = 
Sy = Ela" 
case c_ptype = rr 
9,¢ say "Mefionr™ 
otherwise 
@9,c say "Other'! 
endcase 


1% id's peo "Tt Or, Grog pe = i 
l say "property : 
0, : ay c_pnum 


wee 

set comfirm off 
ans = ' ul 

do while .not. ans $''yYnN" 
an¢é = "1 


@ 22,0 cl@&r to, 23779 

@ 22,22 say "Is this the correct component?: :! 
@ 23,29 sey" Fae / ge To 

@ 22,53 get ans picture "@!A" 


enddo 
set confirm o 
@ 22,0 aaa | Eo 23,79 


Te U per(ans) = am \en 
Sochting.= .f. 


OL 


located = .t. 
find_use = .f. 
else 


@ 22,11 say "The component shown is the only "+; 
neal 0 None on file with this serial #' 
Suay = 


do while delay < 40 
delay = delay +l 
enddo 
G@ 22,0 clear to 22,79 
@ 22,18 say "Check the component"t+ 
"serial #, part usage, or" 


locating = 

usage = ' I 

i blank 

delay = 

do while "Mika, < 40 
delay = delay + l 

enddo 

ime, Omenear to 22,79 

endif 


endif found 


ave eo: Pounce Or mnneuwmon file) .and. locating 
wee clear to 23,79 
Zee aay "Component motmen file 11)" 
delay = 
do w ile” delay < 40 
delay = delay + l 


enddo 
eZ7eO clear to 22,79 
set confirm apaa * 
ans = 
do as wotemans Sy Ynn!! 
ans = ou 


@ 22,22 say "Is this the correct serial #?: :" 
@ 23,28 say "[ Yes / No Ihe 
GeZZ,o2 get ans pigture "'@! A" 
read 

enddo 

Gaze, 0) clear to 23,79 

set confirm on 


if upper(ans) = "Y" 
6°22 piceoay sechcek the component'+ 
" serial i! part usage, or' 


ee en 

do while aay < 40 
delay = delay + 1 

enddo 

Gece ,© clear to 22,79 


usage = toot 
component= blank 
locating = : 
else 
@ 22,20 say "Please re-enter "+; 
aa "the component ‘Serial # or" 
ela 


do while delay < 40 
delay = delay + l 
enddo 
component = blank 
CeZanoeclearsco 22,79 
endif 


endif not found 
enddo locating 


enddo find_use 


checking = 
do while semaine .and. located 


delete_it = .f. 


cleam to 920774 
say "Fill in if known:" 


Say “Rant emedeta 
get mmod picture "@N!" 


fo) 
WwW 


~ 


Qu.- * 
an AM OO 


fay) 


say "serial Gia! 
get mpart_ser picture "@N!" 


™ 


m 
Q.- 


confirm oe 
1G (say aoe ant eee 
Cc aaa mp oe. ‘picture "@N 


m 


MDun MMMM M 


fey 
mw NOt MND PH Wo 


d 

do while .not. mp type S$ " oOmMpP" 
mptype = " © 
@6,c get mptype picture "@N!' 
read 

enddo 

set confirm on 


@ 7,5 say "property #: " 
@7,c get mpnum picture "'@N!" 


read 
rec = -l 
more = .£. 
select parts 
oto top 
one ef. 
aa = .£. 
bba= . 
cc] 22 
dd = .f. 
ee = .f, 
if mpart_ser <> blank .and. .not. done 
aa = .t. 
done = .t. 


locate for part_ser = tram(mpartiser) .and. 
comp_ser = trim(component) 
lf founda 


ae = recno() 


1 mn 5? gape ama. snot. done 
done = .t. 
locate for p_model = trim(mmod) .and. 
comp_ser = trim(component) 
if Beund@ 


rec = recno() 
continue 
if feunct ) 
nore, = .t. 
@ndif 
endif 


endif 


lf nptyoe <>)" aang. “not. dome 
CC "an amnter 
done = .t. 
locate for p_ptype = mptype .and. 
comp_ser = Er diet COMMOn oat) 
1f found() 
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rec = recno() 
continue 
lef found ( ) 


endif 
af ne <> space(10) .and. .not. done 
or 


done = .t. 

locate for p_pnum = trim(mpnum) .and. 
comp_ser = trim(component) 

ie jcanbhevel@ 


rec = recno() 
continue 
af found ( } 


done = .t. 
locate for comp_ser = trim(component) 
Ve eouna« 
rec = recno() 
continue 
Le found ) 
Meise => « C. 
endif 
endif 
endif 


do case 


Gaseeuceu@ sar, aie .not, more 

Oto Frecena rec 

elearuco 20779 . 
scvVeolLy One pane von flile:" 


710 

0 

Oe say "model; " 
c say p_model 

3 oY “description: " 
€ desc 


2 cat Un weep ney type: " 


~ ~ ~ ~ ~ 


case e =e" 
ere ceo ean t" 
case PPtype = ey 
ar wie say "Minor" 
otherwise 
@7,c say "Other" 
endcase 


Di pemeype = “M' .or. p_pt Ser 
8, e say Toner ee ee 


,c sa num 
enacts ‘as 


set confirm State 


do hile wees dis ''yYnN" 


@ 22,26 say "Is this the correct part?: 


@ 23,32 say "'{ Yes / No 
@ 22,52 get ans picture Qian 
read 

enddo | 

set confirm on 

@ Z2/0mc lear to 723,79 
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a6 CEES ge = Saunt 
22,16 say “Your PART cannot be found, and''+; 
" may not be on filler 
cea ee 0 
do while delay < 40 
delay = delay + 1 
enddo 
M2 ee G@ 22,0 cleareto 2a 73 
exit checkin 
3 component = blank 
usage = moon 
checking = .f. 


else && ans = yes 
~ ee, 
checking = .f£. 
@ 22,0 clear to 23,79 


endif 
endif ans 


case rec = -l 


@ 22,16 say “Your PART cannot be found, anaaem 
" may not be on file" 


omaha 0 

do while delay < 40 
delay = delay + l 

enddo 

@ 22,0 clear to 22,79 

component = blank 

usage = moon 


checking = .f. 


case rec <> -l .and. more 
goto record rec 
still_more = .t. 
correct = .f. 


@ 3, U07elear to 20.79 | 
@3,0 say "More than one part on file:" 
@4,0 say " (select the correct part)" 


do while still_more 


GS cucleame to 9,79 

@6,10 say "model: '! 

@6,c say p_model 

@ 7,4 say "description: " 

e 26 say p_desc 

@8,2 say “property type: '' 


do case ea 
Cape. Duptyps = 
@8,c say "Plant" 
case p_ptype = /h" 
© 8,c may "Minor" 
otherwise 
@8,c say "Other" 
endcase 


if typee= "HM! Jor. p_pitwpe:= "Pp" 
‘So ae say "property #: " 
@9,c say p_pnum 


endif 

set confirm off 

ans = ul 

do while .not. ans $''aAyYnN"' 
ans =! 


@ @2,26 gay “Ig thas the correct part ee 
@ 23,26 say "[ Yes / No / Abandon }" 

@ a get ans picture "@!A" 

rea 
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enddo 
sar Confirm on 
eCe22.0-clear to 23, 79 


if upper(ans) = "A" 
Correct — ft, 
Suatl more = .f. 
component = blank 
usage =" " 
eneckang = if. 

endif 


if eof() 
still_more = .f. 
IEeneeking = .£- 
endif 


if upper(ans) = "N" .and. .not. eof() 
Ski 


do case 
case aa 
if part_ser = trim(mpart_ ser) .and. 
comp_ser = trim(component) 

rec = peeno( } 

rec = recno 

else 
Still moner= .£. 

endif 


case bb 
if p_model = trim(mmod) .and. 
comp_ser = trim(component) 
rec = recno() 
else 
Sab fey ate ia 
endif . 


Edge Ce 
1f p_ptype = mptype .and.; 
comp_ser = trim(component) 
rec = recno() 
else 
still_more = .f. 
endif 


case dd 
if p_pnum = trim(mpnum) wand. 
comp_ser = trim(component) 
rec = recno() 


else 
still_more = .f. 
endi 
case ee 
if comp_ser = trim(component) 
rec = recno() 
else 
still_more = .f. 
endif 
endcase 
endif 
if upper(ans) = "Y¥" .and. .not. eof() 
elete_it = .t. 
correct = .t. 
still_more = .f. 
checking = .f. 
endif 


enddo still_more 


Pcie Gerree= ,and. .,mot. still_more 
@3,0 clear to 11,79 
@ 22,16 say "Your PART cannot be found, and''t+; 


6/ 


' may not be file’! 
dela y on file 


= 0 

do Giiulic delay < 50 

delay = delay + 1 
enddo 
@ 22,0 clear to 22,79 
component = blank 
usage = 11 oat 
cnecéking = aa. 

endif 


endcaces 
enddo checking 


if delete_it 


@ 22,19 say "Do you wish to delete this PART?: :"! 
@ 23,26 say al Yes / No ]j? 
set confirm orf 


ans = 'ou 

do while .not. ans $ "yYnN'! 
ans = '! 4 
@ 22,52 get ans 
read 

enddo 


set confirm on 
@ 22,0 cleaiestoras, 72 


if upper(ans) = "N' 
delete le = .f. 
endif 
endif 


if located .and. .not. delete_it | 
@ 22,16 say "Do you have additional parts to delete?: ;''! 
@ 23,26 say "({ Yes / No Jj" 


sie confirm GFFf 
ans =! 
do while -not. ans $ "yYnN'"! 


an 
@ 22,56 get ans 
read 

enddo | 

set confirm on 


if upper(ans) = "N" 
Sét COntiiam OFF 
release all 
close databases 


ré Guin 
else 
component = blank 
usage = ' 
@ 33.0 cheameto 23,79 
endif 


endif 
if delete_it 
@ 22,23 say " Standby while the part is deleted "' 


select parts 
goto rec 
mptype = p_ptype 
if upper(mptype) = "P" .or. upper(mptype) = '"M" 
select history 
append blank 
replace model with trim(mmod) 
replace serial_num with trim(mpart_ser) 
replace ptype with mptype 
replace pnum with trim(mpnum) 
replace del_date with mtoday 
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endif 
select parts 


delete 
Gaze 0, clear. cou2s:, 79 
@ 22,16 say 


Gize zouecavze 3) ves / No |" 


Set confirm off 

ans = | I 

Gown le snot. 
ans = 1 I 
GezZyou get ans 
eae 

endao 


if upper(ans) = 
Site rain ei = 
finished = 


ny! 


wet 
at 


else 
G@-22 0 eiear to 23,79 


usage = '' '! 

mmod = blank 
description = space(50) 
mpart_ser = blank 

mp type =-> li ov 

mpnum = space(10) 
component = blank 
mtoday = date( ) 


mc_mod = blank 


mc_mfg = blank 
mc_desc = space(50) 
mc_ptype = ' " (10) 
mc_pnum = space 
nan = Saas 

Iname = blank 
enteringe= .t. 


delete_it = .f. 
@ 4,0 clear to 20,79 
endif set up 
endif delete it 


enddo entering 


Cee 15 say. 
UWAKAKK 


select parts 
pack 


enddo finished 
sot cont lrmuoms 
release al 
close databases 
return 
enddo 
* EOF delpart.prg 


9,  DEL_HELP.PRG 


KKKKKKRAKRKKKKKRKKKKKK 
x 


Program: 


Me Os ga, ac a Soest os wwe TIM SEXTON 
BIPMgS OS Olds dis. 4-a we shee 44 

user 
Bee ESM 4 4 angi ee hes of None 
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ats 9 VY YnN" 


Standby while the files are updated 


DEReHEP SERS 


"Do you have additional parts to delete?: :'! 


&& set up for the next one 


KAKA 


KRARKKKAKKKKKKAKKAKKKKAK 


describes the options available to the 


*Input/Output Files.: None 


* begin the text dialogue 
clear 


@ |] @ to 17 9teeurm le 
G@ G5 16 say "D Bb e aee PuR’O FP Eo Rory HELP MET u" 
text 


x Deletions are made by either Component Serial # 
or by Part 


* Correct serial number must be known, when 
requested, components are deleted by serial # 


x When deleting a component, any parts assigned to 
that component must be deleted or re-assigned 


* To delete a part, first identify if the desired 
part is presently in storage or assigned to a 


component 
endtext 
@ 21,0 to 22 ae . 
Wait " -> press any key for more help or ESC to exit" 
clear 
@1,0 to 1,79 doubte 
text 
'GaUrrehs"' 
* Extremely important that all information is 
entered correctly 
* Mistakes will be made so utilize the "NO" or 
"ABANDON" commands before resuming 
*x Recommend using DELETION and ARROW keys for | 
modif ang data entered and ensure not to devia 
outside designated fields 
endtext 
Ga7i,0 to Zier 
Wait " -> press any key for more help or ESC to exit" 
clear 
@1,0 to 1,79 double 
CeME 
"WARNINGS" 
x Use of BACKSPACE key can cause PREMATURE exitin 
of an entry field, loop back for re-entrance o 
data 
* Serial Numbers must be accurate and precise 
x There is no recovery for deleted property, 
ensure you a certain you are déleting the proper 
item 
endtext 
@ 21/0 to 2a Ss 
Wait ' -> press any key to @xit"' 
clear 


“EOF DEL _ABLPVPRG 
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10. MAIN _HELP.PRG 


KKHKKKARARKRRARARARAA Program: MAIN HLP.PRG FR OR FOR AOR IK A A a tek 
i 2 
POON. Wee jee TIM SEXTON | | 
FPULPOSE+ +e eee eee describes the options available to the 
user 
MUCMMNG? 2s scsi sane 2 Nene 


w 
*Tnput/Output Files.: None 


* begin the text dialogue 


clear 
eel.0 to 1,79 double 
Ceo 2, say "NM A LN H BB LoP Noe NU" 


text 
Welcome to the Property Management Help Menu 
Titoamnenit octeougned to help the unfamiliar user 
PSMotn, Mic Uncen stand those areas of difficulty | 
whitch are wncountered while utilizing this application 
Peoceciwe Oieenelp Menu 1S categorized into fivé areas 
of concern which will be identified as follows: 
ieeeis CSe An” S éarchés. 
feeeeetoOperty Report Priming 
5S. Hiieering Property 
4. Deleting pomees 
>. Modutying Property 
endtext 
e210 We 21,79 | 
Wait "' -> press any key for more help or ESC to exit" 
clear 


oe to 1, Mdouble 
ceUnae say "E 1 SPT AN D SG A R C®H Bes" 


Cemwe 
x Designed to provide the user with property lists 
and answers to queries 
* Queries are made to identify owners and locations 
of property concerned 
endtext 
& o1,0 to 21,79 | 
vat | -> press any key for more help or ESC to exit! 
Gil é@ar 


e2,0 to §,79 doubld 
CMOml7Ssay “F ROPER T Y Ree @ © R T P RON T-ION.G" 


text 


x WENsure Printér Ws ON and READY 
Reporte aré pr@*formatted 
* Provides two types of Reports, namely: 


mA quae ec Tye” Grouped by Custodian/Owner 
xX Summaryccc7-- Grouped by Property Type 
and Property Number 


7\ 


enacexte 


Ca2n0 to x2 ie 
awe. -> press any key for more help or ESC to exit" 


clear 
@ 1,0 to 1,79%deubte 
@ 0,24 say "ENT E Regie PRO PER. faye 


VERE 
x Property is entered as a Component Onma Part, 
parts are items used in a component (eg. card) 
* Mfg Serial Numbers is required for component entry 
Part Model is required for part entry 
* Custodian and Location must be known for 
COMPCUENEech Gr les, parts ae a component 
serial # 1f not being placed into storage 
endtext 
a2 Om to2 ie | 
Walt ' -> press any key for more help or ESC to exit’ 
clear 


@ 1,0 to 137er douse 
@O,24 say "D Bok fei aimee Pwe QO PoE R Ty? 


cexMC 

* Deletes current data by two methods: 

: Component 
ay Jenene 
* Serial Numbers are Luau Peed to identify component 
or part to be deleted from database 

x Ensure correct entry to avoid costly ré-entrenes 
endtext 
Cid.) O.eutow2 vee | 
Wait | -> press any key for more help or ESC to exit" 
clear 


@l,0 to 1,79 %deubie 
@ 0,22 say "4 O DEH Y hae PR Oe # Bae" 


Cex TC 
x Modifications are made to components and parts 
changing accountability or to the record itself 
* Serial Numbers are required to access the data 
to be updated in the database 
* Modifications cannot be made until data has been 
entered 
x Once modifications are entered be sure to answer 
romts correctly in order that new modified data 
e recorded into the database 
endtext 
G.2i,0 SS Zig 
Wale. ” -> press any key to exit" 


a2 


- EOF MAIN_HLP.PRG 


li. NIODCOMP.PRG 


Os Sli Oe we, Be ew 


PAUethoOr: * *- ¢ © @# © © @ @© @ &© @ : 
BEI OS Se tos erate eee : 
a 


‘ 
x 
PEWS fee Moiese tee, Git 
aimpuc/Output Files.: 


macaramn: MODCOMP.PRG KRAKKKARKRK KARA 


TIM SEXTON a 
allows the modification of the component 
record, with the exception of the fields to 
coememmownership. If the serial # 1s changed, 
then parts with that serial # are also changed 
accordingly 

None 

Seren Der, PARTS.DBF 


eLear | 
set confirm on 
Bemecs 
use parts index c_ser 
Eomect a 
use comps index comp_ser,name_loc 
@erwhile .t. 
blank = space(15) 
mmfgq = blank 
mmod = blank 


mdesc = space(50) 
mser = blank 


metype — it ia 
mpnum = space(10) 
mprice = 0.00 
mreqn = blank 
maec_ cede = " " 
mtoday = date( ) 
mlname = blank 


miname = blank 
finished = .£. 


eo, 16 say “SiG eter xy Greeti P ON EN T Seernen oo N” 
@1,0 to 1,79 double 
do while .not. finished && modifying a component 


E20 ton lea 


@> 2,56. say Wdate: =! 
@ 2,61 say mtoday 
searched = .f 


do while .not. searched 
x enter serial # or exit 


Gnlering = stam | | 
do while entering && componenet information 
@ 3,0 say "Enter Component :" 
c = 18 && entries begin at column 18 
@ 4,7 say "serial #: " 


@ 4,c get mser PICTURE "GN!" 
@ 22,28 say "To EXIT leave serial # blank" 
read 
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1f mser = blank 
set Confimmeore: 
close databases 
release all 
return 
else 
C 22A0ncReawe toms 
endif 


* check to See Sf wen caue 
select comps 
set order to l 


goto top 
On £1 he 2= ener 
correct =e 
reco — sat 


if .netemeonie 
SOU (ender son 
seek trim(mser) 


else 
on fajles ae 
correct = TE. 

endif 

1f found() 
rec = recno() 
COTrectu = .35.. 
@ 3,0 Cleagreee Zo 79 
mmod = c_model 
mmfg = c_mfg 


mdesc = c_desc 

mptype = c_ptype 

mpnum = c_pnum 

mprice = c_price & 
mreqn = c_reqn 

mlname = last_name 

mfname = first_name 

mloc_code = loc_code 


@ 3,6 say "Custodian: " 


@ 3,c say trim(last_name) +", " + first_name 
@ 4,1 say "designated use: " 
do case 

Case sloemeode = Wo" 

4,c say "Office" 
case loc_code = ''H'"! 
@4,c say "Home" 
case loc_code = "L" 
4,c say "Lab" 
otherwise 
@4,c say "Storage" 

endcase 
@ 6,12 sav “meg: " 
@ 6,c say me 
@ 7,10 say "model: " 
@ 7,c say mmod 
@ 8,7 say "serial #: ' 
G 8.€ scvier  ~. 
@ 9,4 say "description: " 
@ 9,c say mdesc 
@i11,2 say "property type: " 
do case 


casé c_ptypé = ''P" 
@ ae say “Plant! 
casé@ C_ptypé = 'N” 
@ tf say "Minor" 
otherwise 
G 11,¢€66y “Other"' 
endcase 
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Poem pes UM! .or, cpt a aoe 
eee say property : 
Geiz,c Say ¢C_pnum 
endif 


@ 14,10 say "price: §$' 
@ 14,c say c_price 
CGeseemesay “regh #: " 


G@ 15,¢ say c_reqn PICTURE "@!R 9999-NNNN/NNNNN" 


set confirm ort 


ans = " 
Soe eememior. ans SS yYnN" 
ans = thf 
Cezeeeemaay 1s this the correct component? : 
GZs scesay "| Yes / No 
@ 22,56 get ans picture Qa" 
read 
enddo 


set confirm o 
@ 22,0 ees, es 23379 


fe uspemeans) = "YY" 
Cima COn—s.. t.. 
searched oats 
entering TEs 

else . 
On tile 
correct 


@ 22,10 ° 


oe 
me 
et 


qu 


a | 


a 
he component shown TS tee omy one ''+; 


"on file with this serial #! 


Dee es 
do while ites < 40 
delay = delay + 7 
enddo 
Cegzrorciear to 23,79 
@ 22,14 say "Your component ma pemnec ot. '+- 


Veale, check tiie Serial #" 


ae any 

do while "delay < 40 
delay = delay + 1 

enddo 

G27 Onelear to 22,79 

@ a0 clear to 20,79 


endif 
endif found 


Tino cemmoumenem or, .not. correct 
@.22,238 Bey Component Otol eetelko tna! | 
delay = 
do while "aay < 40 

delay = delay + 1 
enddo 
GmzZ,Oeclear to 22,79 


set confirm On & 


ans = '! 
do whale vnet- ans $'yYnN'' 
Ae =— tl tt 
GOZ2Z72o say is this the correct serial #?: 
@ 23,33 say "{ Yes / No 
@ 22,55 get ans picture Qa" 
read 
enddo 


GEZZ,0 Clear tomZz3,79 

set confirm on 

if upper(ans) = "Y" 
SGOrrect = .C. 
on_file = .f. 


@ 22,14 say "Your component maybe not on "+; 


yS 


"file, check the seniaueeee 
del Bas 
do w ie delay < 40 
delay = delay + 1 


enddo 
Q@ 22,0 elear toea2 ,79 
else 
COrnect — ae 
@ 22,20 Say; 
SS Please re-enter the component serial #'' 
ela 


do while delay < 40 
delay = delay + 1 
enddo 
@ 22,0 clear to 22,79 
mser = blank 
endif 


endif not foulme 


1f .not. on _file .and. cormeet 
mser = blank 
endif not on file and done 


enddo entering 
enddo searched 


* allow editing the component record 
new_mfq = blank 
new_mod = blank 
new_desc = space(50) 
new_ser = blank 
new ptype Saas 
new_pnum = space(10) 
new_price = 0.00 
new_regn = blank 
changeit Sue 
changed = . 
do while change.1t ama 
not. changed && componenet information 
@6,c clear to 20,79 
@ 22205 oo . 
"Make required changes, press RETURN when correct" 
new_mfg = mmfg 
a c get new_mfg PICTURE '"'@N!" 
rea 


new_mod = mmod 
7,¢ get new_mod PICTURE "@N!" 


read 
* enter mfg serial# (mandatory) 
noO_ser = . = 


do while no_ser 
new_ser = mser 
@ 8,c get new_ser PICTURE "@N!" 
read 
1f new_ser = blank 
22,0 clear to 22,79 
S Wa. , 24 ey “serial # # may not be blank" 
ela 
do while’ delay < 25 
delay = delay + l 
enddo 
@ 22,0 cle@e tawZag 
@ 22,16 say "Make required changes''t+; 
" press RETURN when correct" 
else 
no_$ér 3.4. 
endif 


«sr 





enddo 


new_desc = mdesc a 
9,¢ get new_desc PICTURE "@N!" 


read 
x enter property Eee (mandatory ) 
set confirm off 


@ 11,20 say "(Plant / Minor / Other)" 
new_ptype = BENS 

@ ge get new_ptype PICTURE '@!A'" 
rea 


do while .not. new_ptype $ '"'mMoOpP'" 
new_ptype = mptype 
@ 1ll,c get new_ptype PICTURE "@!A" 
read 
enddo | 
set confirm on 


x no Bugger tye for other type property 
1 


upper(new_ptype) = && ensure it is blank 
612, 0 c Teen ee me 79 
new_pnum = space(10) 

endif 


* enter property# (mandatory for plant and minor property types) 
ae nee Type) = "M" .or. upper(new_ptype) = ''P" 
12,5 say "property #: ' 
HO wUmy =a re. 
do while no_num 
new_pnum = mpnum 
@ Leas get new_pnum PICTURE '@N!" 
rea 
if new_pnum = space(10) 
@ 23,0 ges m tO 22/9 
Cizeee says Minor and Plant, property "+; 
"require a property number" 
See o 0 
do while delay < 25 
delay = delay + l 
enddo 
GegZee clear to 22,79 . 
@ 22,16 say "Make required changes"+; 
' press RETURN when correct!" 


xX enter price and requisition# 
new_price = mprice 
@ Let get new_price PICTURE "@R 99,999.99" 
rea 


new_reqn = mreqn 
@ He get new_reqn PICTURE "@!R 9999-NNNN/NNNNN'"! 
rea 


set confirm off 

@ 22,0 clear to 22,79 

ans = it 

do while .not. ans $"aAyYnN'' 
as tot 
@ 22,25 say "Are the modifications correct?: :" 
@ 23,29 say "([ Yes / No / Abandon]" 
@ 22,56 get ans picture "'@!A" 
read 

enddo 

G@ Zero cGlear to 23,79 

set confirm on 


if upper(ans) = "A! 


a 


Change sila. ae 

endif 

1f upper(aneje—— && add mvar to dbf 
changed = .t. 

endif 


enddo change 


cee ome 


inal record was changed replace the old fields 


xX with the new ones 
if changed 


set confirmeors 
@ 22,0 clédr tomzem7 2 


ans = il 
do while .net. ans S"yynN" 
ans. = it 
@ 22,18 say; 
"Do you wish to file the modified component?: :'"' 
@ 23,29 say "{ Yes / No ]" 
@ 22,62 get ans picture "@!A" 
read 
enddo 


@ 22,0 clear to 23,79 

set confirm on 

if upper(ans) = "'N!! 
hemeee = owt. 

endif 


if upper(ans) = "yY" && add mvar to dbf 
Geo, 20 say "Standby while your entry is placed on file" 


x place gheconmp- 


select comps 
doverrec 


replace c —nig with trim(new_mfg) 
replace c_model with im {newam Bo 
replace c_desc with trim(new_desc 
replace comp_ser with trim(new_ser) 
replace c_ptype with new_ptype 
replace c_pnum with ene toe) 
replace c_price with new_price 
replace c_reqn with rim Giese) 


changed = .f. 


* replace comp_ser in parts file 


‘select parts 
goto top 
set "exact on 
replace comp_ser with trim(new_ser) for; 
comp_ser = trim(mser) 
endif 


endif changed 


ie 


.not. changed 
@ 


22,0 clean te 23773 
@ 22,14 say "Do you have additional component'+; 


" records to modafy?: <"' 
@ 23,34 say "{ Yes / No J" 


set confirm Orr 
ans = !! 


do while .not. ans $ 'yYnN" 
ans =" 
@ 22,66 get ans 
read 
enddo 
if uppér ( anéb).@ 
ate i ©. 
clear 
else && set up for the next one 


78 





GeZ7eteclear to 23,79 


entering = .t. 
mmfq = blank 
mmod = blank 


mdesc = space(50) 
mser = blank 
motyvpe =! ! 
nonin = space(10) 
mprice = 0.00 
mreqn = blank 


mloc_code = "' '! 
mtoday = date( ) 


mlname = blank 
mfname = blank 


US Ome Ee ameouZ0:,79 
endif 


endif not changed 
enddo finished 


set confirm off 
release all 
close databases 
return 

enddo 

* EOF modcomp.prg 


12. MODLOC.PRG 


KAKAKAKKKKKKKKKKKKKKKRE Program: MODLOC.PRG KKKKKKKKKKRRKK 
BUENO a. cee sas wee OR ALON 

BMEAUGIIO S.C o55: 6 veisaia oe ole ee : allows reassigning a component to a new 

: custodian 1f the custodian is not on file a 

= new record 1s created in owners and or homes, 
“ if the owner is not on file for any 

x components any longer then they are deleted 
SO Se eiois. 0: sepa eiaue None 

Beeenouc/Output Files. Gols .DBF, OWNERS.DBF, HOMES .DBF 


clear 
set confirm on 
set exact off 


aerect Cy | | 
use homes index 1l_fnames && indexed on last,first names 
mecec t) 
use owners index names && indexed on last,first names 
Select.a . 
use comps index comp_ser,name_loc && indexed on comp_ser 
Gomwblle .t. 

blank = space(15) 

mmfg = blank 

mmod = blan 


mdesc_ = ce (oO) 
mser = blank 


mptype =" " 
mpnum = space(10) 
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mlo¢c code. — aa 
mtoday = date( ) 


milname 
mfname_ 
mlocation = space(8) 
mstreet = space(25) 
meity = blank 
mphone = space(13) 
addhome = .f. 
addowner Son 
finished ne 


i'M i a F oy C OM PeOstives NT ASSIGNMENT 
(a 1 to 1,79 doubre 


59 CR E Baie 


do while .not. finished && modifying a component 


@ 21, O0;toeci 
@ 2,56 say "date: " 
@ 2,61 say mtoday 


searched = .f. 
do while .not. searched 


xX enter serial # or exit 
entering = .t. 


do while entering && componenet information 


@ 3,0 say "Enter Component:" 
c = 18 & 


& entries begin at column 18 


@ 4,7 say "serial #: "' 
@ 4,c get mser PICTURE "GN!" 


@ 22,28 say "To EXIT leave serial # blank" 


read 

1f mser = blank 
set confirm off 
close databases 
release all 
return 


- 
@ 22,0%erear to 23,79 
endif 


* check to see if on file 
select compe 
set order to l 
goto top 
on_file «ilies 
correct ie 
C wae.= =1 
if .not. eof() 

S@t exact on 


seek trim(mser) 
set exact off 


els 


else 
on fide, > Jf. 
correct = .f. 

endif 

1 €ourd () 
c_rec = recno() 
correct = .t. 
eo clear LO 20,79 
mmod = c _model 
mmfg = c_mfg 


SO 


mdesc = c_desc 
mptype = C_ptype 
I num = = 

name ast _name 
née = first_name 
mloc_code = loc_code 


if mloc_code = "0" 
select owners 
locate for last_name = Eee tame ) ely) py 
first_name = trim(mfname) 
eeeeion <> "HOME!! 
mlocation = owners->location 
endif 


1f mloc_code = ''H!! 
select homes . 
set relation to last_name+first_name into owners 


locate for last_name = pa miname) marca: 
first_name = trim(mfname) 
owners- Bea ticn = "HOME"! 


mlocation = owners->location 
mstreet = homes->street 
mcity = homes-> city 
mphone = homes-> phone 
set relation to 

endif 


Gaerne say =mig: 
@ 3,c say neg 
& noe say aoe 
,c say mmo 
: ae aa “serial #: '' 
[omc y ase ss 
@ 6,4 say "description: " 
@ 6,c say mdesc 
§ 8,2 say "property type: " 
o case 
case mptype = "P! 
@ Hane say "Plant! 
case mptype = "Mi 
a 8,c say Minor" 
otherwise 
F 8,¢c say "Other" 
endcase 


if Mptyoeeee sor. Mpa pe = "Pp" 
é =" say "property #: 
,c say mpnum 


ake 
@ 11,1 say "designated use: " 
do case 
eaceumuocicode = "0" 
Giibinen cay ''Of face”! 
case mloc_code = ''H'! 
1,c say "Home"! 
case mloc_code = "ZL! 
1,c say "Lab" 
otherwise 
@ll,c say "Storage" 
endcase 
Giieyemmsay “Custodian: " 
do case 
case ee _code = "f"' 
@13,c say mlname 
@ ta 12 say "lab: " 
@14,c say mfname 
case nS _code = ''0!! 


@13,¢c say trim(last_name) +", " + first_name 
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@14,9 say Soeeice. 
@14,c say mlocation 


case mloc_code = ''H' 
@ .c¢ say trim(last_name) +", " + first_name 
@14,9 say "street: " 
@14,c say mstreet 
@ 15,11 ‘Sayeed Gea 
@15,c_ say mcity 
@ 16,20-say “phone: " 
@ 16,c say mphone 
case miceseode t= ‘'sil! 
37e@ say "“AS*BErl 
endcase 
set confirm One 
ans = " 
do while not. ans $''yYnN"' 
ans = * 


@ 22, 25 say 'Is this the correct component?: :" 
@ 23,33 say "{ Yes / No 
@ 22,56 get ans picture @ta" 
read 
enddo 
set confirm on 
Q@ 22 ,07elear “eo 23,79 


if upper(ans) = ee 
on_file = 
a 


ita 

else 
on_file =.f. 
correct =.¢t. 


@ 22,10 say; 
"The component shown is the only oné "+; 
"on file with this serial #" 


searched 
entering 


coe 
do w as delay < 40 
delay = delay + 1 
enddo 
@ 22,0 clear to 23,79 
@ 22,14 say "Your component ma bé not on “ae 
a“ "file, check the serial #" 
ela 


do em delay < 40 
delay = delay + l 

enddo 

@ 22,0 clear to 22,79 

@ 3,0 clear to 20,79 


endif 
endif found 


if .n6t. G@@une®) .e6r. “not. copréct 
‘ on 28 Aa "Component meoe-on fawg !'!" 
ela 
do audit delay < 40 
delay = delay + 1 
enddo 
G@ 22 /0°C1e ir “to?2 , 79 


set confirm off 
ans = " 
do while .not. a@ns $'"yYnn"' 
ans = Ii V1 
@ 22,25 @eay "Is this the correct serlal #?: :" 
@ 23,¢8 esy."{ Yes / No 
@ 22,55 get ans picture "@IA" 
read 
enddo 
€ 22,0 clear to 23,79 
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set confirm on 


if upper(ans) = "Y" 
EORECCE as 


on_file Shs 

@ 22,14 say "Your component Dae nO ane. t 
JEile, check the serzal +" 

Bees 0 

do while delay < 40 


delay = delay + 1 
enddo 
Geze27emclear to 22,79 
else 
correct = .f. 
@ 22,20 say; 
nae "Please re-enter the component serial #' 
ela 


= 0 
do aatae delay < 40 
delay = delay + l 
enddo 
Gee, Userear to 22579 
mser = blank 
endif 


endif not found 


Pe eeoOtemonetite -ana. correct 
mser = blank 
endif not on file and done 


enddo entering 
enddo searched 


* allow reassigning the component ALL NEW FROM HERE ON 


addhome = .£. 

addowner = .f. 

change_it =.t. 

changed = .f. 

do while change_it .and.; 
snot. changed && Ccomponenet information 


@j11,c clear to “1,79 
@ 12,0 clear to 20r79 
@ 22,26 say "Enter component new assignment" 


* enter location code 
new_code = ' " 
Se Cee eerie tt 
@ 11,20 say "(Office / Lab / Storage / Home)" 
@ 11,c get new_code PICTURE "@!A" 


read 

do while .not. new_code $"0OoL1SsHh'' 
new_code = '! " 
@ ill,c get new_code PICTURE "'@!A" 
read 

enddo 

set confirm on 

addhome = .f. 

addowner = .f. 

new_lname = blank 

new_fname = blank 

new_loc = space(8) 

new_street = space(25) 

new_city = an 


new_phone = space(13) 


enter custodian information, search to see if on file 

use owners for loc_codes 0,S5,L 

use homes for loc_code H 

last name, first name, and office or home addresses are mandatory 


do case 


tA Ft 


$3 


* office use 


case new_code = "0! 


* check to see if 


@ 22,0 clear toez2 72 
@ 22,26 say "Enter component new Custodian! 


no_lname = .t. 
do while no_lname 
Q@ 13,0 Wieaestes2z0.79 
@ 13,6 say "Custodian" 
@ 14,6 say "last name: '' 
@ 14,c get new_lname PICTURE '"'@!A" 
read 
1f new_lname = blank 
@ 22,0 clear to 22,79 
é ae 34 Bey "Custodian's name may not be blank" 
elay = 
do while delay < 25 
delay = delay + l 
enddo 
@ 22,0 clear to 22,79 
else 
no_lname = .f. 
endl 
enddo no lname 


on file 

select owners 
goto top 
searched = .f. 
checked ae 
located ae. 


do while .not. searched 


searched = .t. 
else | 

seek trim(new_lname) 
endif 


if Ser. foun) 
‘searched 
addowner ae 


endif 


if found() .and. location = "HOME" 
searche ee 
located = .t. 
chéck@a = .t. 
endif 


bf found() .and. locatzon <> "“HOMB" 
searched = .t. 
located 
checked 
endif 
enddo 


do while located 
do while .not. checked 
@15,5 say "first name: " 
@15,c say first_name 
@16,9 say "office: " 
GC 16,c say location 
set confirm omr 
ans = 6 
do while ‘not. ans $"yYnN'"! 
ans = ' 
@ 22,0 ci@dr, toe 22778 
@ 22, 30 say "Is this the correct"+; 
" custodian?: :" 
@ 23,26 say "([ Yes / No ]" 
@ 22,51 get ans picture "@!A" 


vat. 
. ie 
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read 
enddo 
(Gm 2 Oselleareto 23,79 


set confirm on 


Lf upper(ans) = "y" 
ocated = .£. 
checked = .t. 
new_fname = first_name 
new_loc = location 


se 
checked = .t. 
RLS ,.C clear to 16,79 
endif 
enddo checked 


do while located .and. checked .and. .not. eof{) 


skip 
if eof() 
located = .£. 
addowner = .t. 
endif 


if last_name = trim(new_lname) 
checked = .f. 

else 
located = .f. 
addowner = .t. 

endif 


if location = "HOME"! 
located = .t. 
isnecKed =U. 
endif 


enddo located and checked 
enddo located 


1f addowner 
no_fname = .t. 
do while no_fname 
ao, : say ‘first name: " 
@15 get new_fname picture "@!A!' 
eae 
if new_fname = space(15 
Geeznure lear to 22 
@ 22,20 say "A first name or Pena elt 
hie dee als required’ 


dela Ba 

do while "delay < 25 
delay = delay + l 

enddo 


@ 22,0 clear to 22,79 
else 
no_fname = .£. 
eat 


enddo no fname 


@ 16,9 say "office: ' 
@l6,27 say "(bldg- room)" 


no_office = .t. 
do while no_office 
@ ie “get new_loc PICTURE "@! (A-999)" 
rea 
if new_loc = space(8) 
@ 22,0 clear to 22%79 
@ 22,26 soy "Office may not be blank" 
delay = 
do while ” delay eee) 
delay = delay + l 
enddo 
Geez, 0 clear to 22,79 
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x supply use 


tee ae 
nNOsOEi I Geman... 


endl 
enddo no office 
endif add owner 


case new_code = "§!! 


x check to see if 


@ 22,0 clear teywz2 79 
@13,0 clear to 20,79 


@13,6 say "custodian: AS DEPT" 
@14,9 say "location: (1I-200)" 
new_ name = "AS DEPT 
new_fname = "(1I-200) '! 

new_ =i\cem 2 "STORAGE 


on file 
select owners 
goto top 


1f eof() 
addowner = .t. 
else 
locate for last_name = trim(new_lname) cand. ; 
first_name = trim(new_fname) .and. 


location = new_loc 
endif 


1f note found 
addowner = .t. 


endif 
x lab use 
case new_code = "ZL"! 
GQ 22,0 5etear topZ2 , 72 
@ 22,26 say "Enter component new assignment’! 
@ 13,0 clear to 20,79 
@13,5 gay" & - pant 28 Front C - . 
@14,5 say " B - (I-158) Back D- (i=zaaae 
@16,3 say "Enter one of the above lab locations : :" 
set confirm off 
lab = "' 
do while .not. lab $ "AaBbCcDd'"' 
lab = "4 
@ 16,41 get lab picture "@!A" 
read 
enddo 


* cheek to 868 if 


set confirm on 


new_lname = "AS DEPT i 
new_loc = "LAB 
do case 


case upper(lab) = "A" 
new_fname = '(I-158)F' 


case upper(lab) = "8B! 
ae Ferre = "(T-158)B"' 


case upper(lab) = "C" 
new_fname = "(I-224)" 


case upper(lab) = "D'! 
ele. Staeted =P (1-250)" 


endcase 


on file 
select owners 
goto top 


$6 


i eon 


addowner = .t. 
else 
locate for last_name = trim(new_lname) .and.; 
first_name = trim(new_fname) .and.; 
| location = new_loc 
endif 
ie. noeeweseund () 
‘addowner = .t. 
endif 
* home use 
case new_code = "'H"! 


GEZZ-0 ee leche to 22,79 | 
@ 22,26 say "Enter component new assignment! 


new _loc = "HOME 4 
no_Iname = .t. 
do TBE no_lname 
@ 13,0 clear to 20,79 
@ 13/6 say "Custodian! 
@14,6 say "last name: " 
@14,c get new_lname PICTURE '"@!A" 
read 
1f new_lname = blank 
@ 22,0 clear to 22,79 
@ 22,24 te "Custodian's name may not be blank" 
delay = 
do w sam delay < 25 
delay = delay + l 
enddo 
@ 22,0 clear to 22,79 


nollmame = .f. 
endif 
enddo no last name 


* check to see if on file 
select homes 
Garo. EOD 
searched = .f£. 
located = .f. 
checked = .f. 


do while .not. searched 
if eo 
searched = .t. 
else 
seek trim(new_lname) 
endif 


1f .net. found( ) 
searched = .t. 
addowner = .t. 
addhome =.t. 
endif 


1f found() 
searched = .t. 
located a 


checked 
endif 

enddo not searched 

do while located 


do while .not. checked 
15,5 say "first name: " 


15,c say first_name 
YO, o™ Savyelstreet: " 
16,c say street 
Wee say ‘city: " 
tvie. Say City 


MD DQM a 


@18,10 say "phone: " 
@18,c say phone 


set comfirm off 
@ 2240 clear bO ze uo 


ans 

do while .not. ans $"yYnN'! 
ans =— Ii 1 
@ 22570 say "Is this the correct''+; 

Y Cis toderans: :! 

@23),26 say "| Yes 7 sNo )" 
@ 22,51 get ans picture "@!A" 
read 

enddo 

set confirm o 

@ 22,0 Near €6 23,79 

if upper(ans) = "y"' 
ocated = .f 
checked = .t. 
new_fname = first_name 
new_ Mstrect = street 
new_city = city 
new_phone = phone 

else 
checked = .t. 
@ sc clear to 20,79 

endif 

enddo checked 
do whale located .and. checked .and. .not. eof() 

skip 

Treo ) 
located = .f. 
addowner = .t. 
addhome = .t. 

endif 

if last_name = new_liname 
checked = .f. 

else 
located = .f. 
addowner = .t. 
addhome = .t. 

endif 


enddo located and checked 
enddo located 


1f addowner 
no_fname = .t. 
do while no_fname 
@15,5 “Seam ‘Birst name: ' 
@15,c get new_fname picture "@!A" 
read 
1f new_fname = blank 
@ 22,0 clear Bome2, 79 
@ 22,20 say "A first name or first"+; 
mall "jaeeial is required" 
ela 


do Rie delay ie? 5 
delay = delay + l 

enddo 

C 42,0 clear toe22,79 


nojinahe = .f. 


enddo no fname 


no_address = .t. 
do while no_address 
16,9 say "street: "! 
@16,c get new_street PICTURE "@!" 


SS 


Celgeliowsay “city: " 

@l/v,c ge new —city PICTURE "ara" 

@138,10 sa hone 

@ Bae ge Par oRine PICTURE '"(999)999-9999"' 
rea 

if new_street = space(25) .or. 


new city = Blank 
@ 22,0 clear to 22,79 
@ 22,24 aay "Street or City may not be blank' 
delay = 
do while isias <-25 
delay = delay + l 


enddo 

Q@e22,0 clear tem22,79 
else 

no_address = .f. 
endif 


enddo no address 
endif addowner 
endcase location code 


set confirm off 

@ 22,0 clear to 22,79 

ans = te 

do while .not. ans $"aAyYnN' 
a hicnea Woot 
@ 22,25 say "Are the modifications correct?: :'! 
@ 23,29 say "'[{ Yes / No / Abandon] " 
@ 22,56 get ans picture "@!A" 
read 

enddo 

22 74@eeear 0.23, 79 

set confirm on 


if upper(ans) = "A! 
change_it = .f. 

endif 

1f upper(ans) = "Y'! && add mvar to dbf 
changed = .t. 

endif 


enddo change 
* if changed replace old fields with new fields 


1f changed 
set confirm off 
@ 22,0 clear to 22,79 
ans = 0 i 
do while snot. ans S"yYnNn" 


an 
@ 22, 13 say "Do you wish to file the " +; 

modified component?: :! 
@ 23,29 say "[ Yes / No ly 


@ 22,62 get ans picture "@!A" 
read 

enddo 

G22, 0c leameto.23),79 

set confirm on 


if upper(ans) = 'N! 
eT E. 


anged =. 
endif 
ssa ee re = Wy && add mvar to dbf 
20 say "Standby while your entry is placed on file’ 


x place in comps 
select comps 


goeo C_rec 
replace loc_code with new_code 
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replace last_name with trim(new_lname) 
replace first_name with trim{new_fname) 
replace issue_date with mtoday 


* check and see if old owner needs to deleted from owners or homes 
goto top 


del_owner = .f. 
del_home = .f. 


if mloc_code = "0" .or. mloc_code = "H!! 
locate for last_name = trim(mlname)  .and.; 
first_name = trim(mfname) .and.; 
loc_code = mloc_code 


if .notagsound() 
del_owner = 


eee 
if mloc_code = "H" 
del_home = .t. 
jendains 
endif 
endif 


x if the old custodian is nHoteimeenccomemn mee 
x delete them from owners 


if del_owner 
select owners 
oto top 
ocate for last_name = trim(mlname) .and.; 
first_name = trim(mfname) .and.; 
location = mlocation 
deters 
endif 


x 1f the old custodian is not in the comp file, delete them from 
x homes if the old loc code was HOME 
if deibene 
select homes 
locate for last_name 


trim(mlname) .and.; 
first_name 


trim(mfname) .and.; 
street = trim(mstreet) 


Gewese 
endif 


* place in owners if new owner not on file 

if addowner 
select owners 
append blank 
replace last_name with trim(new_lname) 
replace first_name with trim(new_fname) 
replace leeation awaehn new_loe 

endif 


* place in homes if new owner not on file and loc code = HOME 

if addhome 
sélect homes 
append blank 
replace last_name with trim(new_lname) 
replace first_name with trim(new_fname) 
replace street with trim(new_street) 
replace city with trim(new_city) 

oe phone with new_phone 
endi 


changed = .f. 


endif 
endif changed 


1f .neot. chinema 
@ 22,0 clear to 23,79 nal 
@ 22,14 say "Do you have additional component"+; 


90) 


PeuecOnaseLOamediiye: 2! 
@ 23,34 say "[ Yes / No ]" 


set confirm Oi 


ans = !! 
do while .not. ans $ "yYnN'" 
ans = '"' "| 
@ 22,66 get ans 
read 
enddo 
if upper(ans) = 'N! 
ean) me, 
clear 
else && set up for the next one 


Ge22,0 cleaitouc3,79 
entering = .t. 


mmfg = blank 
mmod = blank 
mdesc = pec. °0) 
mser = blank 


mp t est 
Be = space(10) 
mioc code =" " 


mtoday = date( ) 


miname = blank 
mfname = blank 
mlocation = See) 


mstreet = epece (2 ) 

mceity = 

mphone = eens) 

addhome = .f. 

addowner = .f. 

@ 3,0 clear tom2Qm7 9 
endif 


endif not changed 
enddo finished 


select owners && pack files 
pack 

select homes 

pack 


Set CONLIEM OLL 
release all 
close databases 
return 


enddo 
x EOF modloc.prg 


13. MODMENU.PRG 


RRARK KK KKK KKK KKK KK RK Program: MODMENU.PRG KKK ARK KR KK RK AR 
BUA 6 s+ vs sao tae eon LON 

GSE AU EO reais os. «a acacloie or part the choices to modify a component 

a record, also allow re-assigning the 

s custodians 

*Calls.........2.2+:-: MODCOMP.PRG, MODLOC.PRG,MODPART.PRG 


*Input/Output Files. None 
* set up the screen environment 


Crear 
set confirm off 


oi 


* begin the menu dialogue 


Ao Wainelemest.. 
clear 
G@ 2,10 tom oo edouine 
@ 3,29 say "Modiiy Prepenuy icra 
@ 4,11 to 4,68 double 
@ 6,27 say " Modify COMPONENT" 
Q@ 7,27 say " 1 = CWstegwan or Bogation! 
@ 8,27 say " 2 = Recomae 
@rlOF 2 7S a Modify PART" 
@11,27 say "' 3 = Accountability or econ. 
@eb3,2% say " He -@HBEPY 
@15,27 say " 0 =SRRRUR ose iene" 
@17,30 say " selection : : "' 
CNolcea— : 
@ 17,42 get choice 
read 


* place an asterisk next to a valid choice and erase the other 
* rows leaving the heading Part or Component 


line = 5 
1£ choice S'ize 
do case . 
case UEP SE nec aoe!" 
@ 15,26 Boay Ue" 
choicerow = 13 
case choice = '"'Q" 
Gis, 26 Say 
choicerow = 15 
case choice joigm2" 
@ 6+val(choice) ,26 say '*" 
line = 6 


choicerow = 6+val(choice) 
otherwise . 
@ 8+val(choice),26 say "*'! 
line = 10 
choicerow = 8+val(choice) 
endcase 
firstrow = 6 
rows = ll 


rowenta a 
do while rowcnt < rows 
if (rowent+firstrow <> choicerow) 
if (rowcntt+firstrow <> line) 
@ firstrowtrowcnt,27 say space(30) 
‘emdait 
endif 
rowcnt = rowcnt + 1 
enddo 
endif 


* do a valid choice or loop back thru this program 


do case 
case upper(choice) = '"'H" 
do mod_help 


case choice = "9! 
clear 
return 


case choice = "j" 
do modloc 


case choice = "2" 
do modcomp 


case choice = "3" 
do modpart 


otherwise we | 
@ 20,22 say "****x* not a valid selection *****x" 
? 


walt 
loop 
endcase 
enddo 
* EOF MODMENU.PRG 


Il4. MODPART.PRG 


KKAKKKKKRKKAKKRAKKKKR Program: MODPART.PRG KRAKKKAKKKKKK 
BMENOT ssa. ooh es « : TIM SEXTON — 

Beiegse.....:.+. ss). seaowcuene modification of the part record, 

m ieseassotgned a different component the 

; 5 component is checked to see 1f on file 

SPACES 25> sels 5 ses ss es : 


one 
*Input/Output Files.: COMPS.DBF, PARTS.DBF 


eledt | 
set confirm on 
Set exact on 


select a 

use comps index comp_ser,name_loc && indexed on comp_ser 
mesect b ; 

use parts index c_ser && indexed on comp_ser 


| kc ineekea Oneraoe, ELE St names 
set relation to comp_ser into comps 


Go while .t. 
usage =" "! 
blank = space(15) 
mmod = blank 


description = space(50) 
mpart_ser = blank 


mot e = i il 
Ronn = space(10) 
component = blank 
mtoday = date( ) 
mc_mod = blank 
mc_mfg = blank 
mc_desc = space (50) 
me ptype = "' ' (10) 
mc_pnum = space 
laante = Black 

fname = blank 
known = .€. 


finished = .f. 
change_it = .£. 


do while .not. finished && modifying parts 
G@ 21,0 tom@21,79 


@0,20 say "MODIFY PART S Ger & & N” 
@1,0 to 1,79 double 


Seer inge at . 
do while entering && part information 
Find_use = .t 


do while find_use 
located = .f. 


os 


* entries begin at column 18 
S 18 


* enter use or 


@ 3,0 .clearsto.2e 773 
ee say "date: " 
pou say neCeay 
ou " say "Enter Part"! 


exit 
4,2 Sayeeeurnene yes 
4,20 say "(Storage / onaeaeee / ? not known)" 


et CONfirm or: 

4,c get usage picture "@N!" 
@ a 25 say "TO EXIT leave current usage blank" 
rea 


do While Gmol. usagess " sseer" 
eee =" 
FewGgeerusage Ppleuimer oy! ™ 


‘om fo 


Mun Mm 


read 
enddo 
set confirm on 


Lf usage —.. 7 
set confirm off 
close databases 
release all 
return 
else 
@ 22,0 clear to 23,79 
endif 


if upper(usage) = "?" 
Q's Clear tonwZz0,79 
known = .£. 
locating = gies 
located = gee 
component = blank 
find wee = .£. 

endif 


if upper(usage) = "S$"! 
é 3,0 clear to 20,79 
known = .t. 
locating = mE: 
located = .t. 
component = blank 
find_use = .f. 

endif 


Le upset (US ae) = "¢" 
@ 4,0 clear to 20,79 


@ 3,0 say "Enter Component" 
@ 4,8 say "serial#: 


locating = 
endast 
on_file = .t. 
sought = .£. 
do while oe 
@ 4, et component picture "@N!" 
@ 22, 0 clear to 23,79 
@ 22,16 ey 
s "To ABANDON component entry leave serial # blank" 
rea 
1f component = ae 
locating = 
om Se Sg 
O cle@r to 23,79 
else 
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GeZznomcilcar to<23. no 
* check to see if component on file 
select comps 
set order to l 
goto top 
endif 


af Venoe. cot ( 
‘seek trim component) 
ee 


sought = 

euct | 
Onaeite = .f 

endir 

if found() .and. sought 
mc_mo c_model 


mc_mfg = c_mfg 

NémpEypes=— ¢ ptype 

mc_pnum = c_pnum 

lname = last_name 

fname = first_name 

6,0 clear to 10, ao 

mig «6say ae “ 

E say c_ 

10 say Tec i 

e say c_model 

4 say "description: ' 
e say c_desc 

: Say “property type: " 


Gace emp type = "pill 
@9,c say "Plant"! 
case c_ptype = 'M" 
chore say "Minor" 
otherwise 
ceo c sayeuether" 
endcase 


if eeeeype = "M" .or. = 
10 5 say Perna ot 


@910,c say c_pnum 
endif Oe 


set confirm off 
ans = '!! 
do while ‘not. ans $"yYnN"! 
ans = ' 
Ga22 : oe Comcan 9 
@ 22,22 say "Is this the correct Somponentc 
@ 23,29 say "[{ Yes / No ]j'"! 
@ 22,53 get ans picture "@!A" 
read 
enddo 
set Seen 
G22, elec i 23,79 


ULMVDMD DQ Ma 


isa per(ans) = Ny! 
ocating = ek 
located = .t. 
find_use = .f. 
else 


@ 22,11 say "The component shown is the only "+; 
"one on file with this serial #" 

del ay a 
do while "delay < 40 

delay = delay + l 
enddo 
ide22,Omediear te 22,79 
Sez, 18 say "Check the component'"t+ 

" serial #, part usage, or" 


locating =.f 
usage = " I 
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ei blank - 


do wail 
ile delay < 40 
delay = delay + 1 
enddo 
@™22,,0. Clear toe2zen7 > 
endif 


endif found 


a 


ae found() .or. .mot. on_file) .amd. locataime 
@ 22°0"elear to Zoe 
@ 22,26 say "Component not on file !!!" 
delay = 
do while —— < 40 
delay = delay + l 
enddo 
@.22,0 Clean eto 22,79 


set confirm oped 
ans = '!! 


do while -not. ans S"yYnN'!! 
ans = 
@ 22,22 say "Is this the correct serial #?: :"! 
Gye 2s say "| Yes 7 No |" 
@ 22,52 get ans picture "@!A" 
read 
enddo 


@ 22,0 clear to 23,79 
set confirm on 


1G oe ie oy 
18 say "Check the component''+ 
serial 4 part usage, or" 
dela 


do le. delay < 40 
delay = delay + l 


enddo 
@ 22,0 clear to 22,79 
usage =" " 
component= blank 
locating = 
else 
@ 22,20 say "Please re-enter "+; 
"the component ‘serial # or" 
e ie. delay < 40 
delay = delay + l 
enddo 
component = blank 
@ 22,0.cheae te 22,79 
endif 


endif not found 
enddo locating 
enddo find_use 


checking = 


do while “healllig .and. located 


mmnod = 


blank 


mpart_ser = blank 


mptype = 


mpnum = space(10) 


change_ 


Lf = .£) 


@ 3,0 cl@&r te 20,79 
@3,0 eay “Fild in if known: 


@4,5 say "Part model: " 
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4,c get mmod picture "@N!!! - 
ead : 

Se aSayvecemicaee;: | 

5 4c get mpart_ser picture "@N!"! 


@ 
r 
@ 
@ 
re 
ame et confirm off 


,10 say "ptype: Peete Orner)" 
@ 8 c get mptype picture "@N 
read 
do while -not. mptype > CO mior | 
mptype = 
@6,c get mptype picture "@N!'"'! 
read 
enddo 


set (comfritm on 


@7,5 say "property #: " 
@ 74 get mpnum picture "@N!"' 
rea 


rec = -l 
more = .f. 
select parts 


Biers, 


O 
= 
m 


a 
bb 
ec 
dd 
ee oie 
Lf i ether <> blank .and. .not. done 

aa = : 

done = .t. 

if known 


locate for part_ser = trim(mpart_ser) .and. 
comp_ser = ‘trim(component) 


Pe 
wes 
ote 
od 


locate for part_ser = trim(mpart_ser) 
endl 


Le founa 
rec = recno() 
endif 
endif 


if med <> Ora -and. .not. done 


done = .t. 


1f known 
locate for p_model = trim(mmod) .and. 
comp_ser = trim(component) 


iene. for p_model = trim(mmod) 
endif 


if found() 
rec = recno() 
continue 
if found() 


Lf Mptyoee—= and. .not. done 
CC = ste 
done = .t. 
if known 
locate for p_ptype = mptype .and.; 
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comp_ser = trim(component) 


else 
locategtor p_ptype = mgeype 
endif 
if founda 
nec = Fecno@® 
continue 
1f Found ) 
Oe > aust 
lends 
endase 
endif 
ain mp nee <> Bblenkscand...notws done 
d= 7 
done = .t. 
if known 


locate for p_pnum = mpnum .and.; 
comp_ser = trim(component) 


else . 
locate for p_pnum = trim(mpnum) 
ena 


if found() 
rec = Geeno\) 
continue 
if found () 

moreee— Cc. 

enciet 

endif 

endif 


1f snot. done 
ee = .t. 
done = .t. 
if known 
locate for comp_ser = trim(component) 
if found() 
GOeummeclo ) 
continue 


more = .t. 


if .Wet..) Bot) 
rec = recno() 


skip 
oeenO Le Of ( ) 
mor®= .t. 
endif 
‘end 
endif 
endif 
do case 


case rec <> -l .and. .not. more 
oto record rec 
3,0 cimGr toeze, ia 
3,0 say "Only one part on file:' 


O say "model: " 
say p_model 
say ‘serial #: " 


say "description: " 


say p_desc 
Z say ‘property type: " 


case p_ptype = "P!" 
we Bay "PL&@nt" 
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case p-Ptype Sara 
,c say "Minor" 
weee rice 
@7,c say "Other' 
endcase 


iG type = "M" vor. type = ''p! 
©8,3 say eco eReT # ; i 


,c say p_pnum 
endian 
if .not. known 
do case 
case comp_ser = blank 
@10,4 say "current use: STORAGE" 
case com = <> blank 
@ 10, ay "current use: COMPONENT' 
@ 11,6 aa veuecoaian. | 
@ ll,c say comps->last_name +; 
comps-> first_name 
@1i3,12 say "mfg: "' 
G13 say comps-> c_mfg 
@14,10 say "model: " 
@14,c say comps-> c_model 
@ 14,7 say 'serlal #: 
@14,c say comps->comp_ser 
@ 15,4 say "description: " 
@i15,c Say comps-> c_desc 
endcase 
endif 
set confirm off 
ans = ' 
do while .not. ans $''yYnN" 
ans = tot 


@ 22,26 say "Is this the correct part?: :" 
@ 23,32 say "[ Yes / No 
@ 22,52 get ans picture @ta" 
read 
enddo . 
set Sept ihm on 
@ 22,0 clear to 23,79 


eae a...) = "N" 
O52, 16 say "Your PART cannot be found, and''+; 
' may not be on file! 


i. “ak ile de lay < 40 
delay = delay + l 


enddo 
G@azz50 clear to 22,79 
component = blank 
usage = |! fl 
checking = .f. 
else && ans = yes 
ehange it = .t. 
chec Aa = .f. 
@ 22, €lear to 23,79 
enda ft 
endif ans 
Gase rec = -l 


@ 22,16 say "Your PART cannot be found, and'+; 
del ' may not be on file" 
ela 


do ir delay < 40 
delay = delay + 1 


enddo 
@ 22,0 clear to 22,79 
component = blank 
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usage = " % 
checking = .f£. 


case rec <> -l .and. more 
GoCOmNGE ee 
Still_more = .t. 
correct = 


@ 3,0 clear to 20,79 | 
@ 3,0 say "More than one part on file:'! 
@4,0 say " (select the correct part)" 


do while still_more 


G@e5Aeeelear to 20,79 

@5,10 say "model: " 

@5,¢ say p_model 

@6,7 say "serial #: '' 
@6,c say partiser | 

@7,4 say description. | 

Ce ne say p_desc 

@8,2 say "property type: ' 


do case ote 
Gdsempeotype = "F 
@8,c say "Plant" 
Casempepvype = oly 
amerc say "Manor" 
otherwise 
@ 8,c say "Other" 
@9,0 clear to 9,79 
endcase 


1f p_ptype = "M" .or. p_ptype = ''P" 
age say "property #: " 
@9,¢ say p_pnum 

endif 


i sme: known 
do case 
case comp_ser = blank 
1,4 say "current usé: STORAGE 
case comp_ser <> blank 


@11,4 say "current use: COMPONENT ->" 
@13,12 say "mfg: " 
amis .C Say comps->c_mfg 
@14,10 say "model: " 
@14,c say comps->c_model 
@ 15,7 say 'serlal #: " 
@15,c Say comps->comp_ser 
@16,4 say "description: " 
@16,c say comps->c_desc 
@18,6 say "custodian: " 
@18,c say comps->last_name +; 
comps->first_name 
@ndcase 
endif 
set confirm off 
ans = mod 
do while .not. ans $'"'aAyYnN'" 
ans = oO 


@ 22,26 say 'Is this the correct part?: :" 
@ 23,26 say "( Yes / No / Abandon ]" 
@ 22,52 get ans picture "@!A" 
read 
enddo 
set confirm on 
GC .@2,0 cla@ar to 23,79 


if upper(ans) = "A!" 
Conrece @ TC. 
still_more = .£. 
component = blank 
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usage = " "| 


checking = 
endif 


if eof() 
still_more = 
@aiecking = .£. 
endif 


if upper(ans) 
skip 
do case 
case aa 
fee eC. 


.f. 


Hinge 


rec 


$till_more 


else 


still_more 


endif 
1f known 


part_ser 


rec 
else 


endl 


case bb 
1f known 


p_model = trim(mmod) 


rec 
else 


Seeriemone 


endl 


ieeemot. known 


rec 


still_more 


else 


stilimore 


endl 
ese ee 
1£ known 


else 


still_more 


endif 


if .not. known a p_ptype 


Bee 


aE. 


known : 
Par ease) 


still_more 
Lie 


.and. p_ptype 


Pvc nat. © Oh ) 


Paice. 


trim(mpart_ser) 
recno 


le 

tee 

eand.; | 

trim(mpart_ser) .and. 


comp_ser = trim(component) 
recno() 


ae 


~and.; 
.and.: 


comp_ser = trim(component) 
recno() 


ee 


.and.; 
p_model = trim(mmod) 
recno() 


ec 
mle 


mptype .and.; 
comp_ser = trim(component) 
recno() 


eee 


mptype 
recno 


still_more = .t. 
ea 
Scmel more =) .f. 
endif 
case dd 
Ji£ known .ande- 


p_pnum = trim(mpnum) 


wand.: 


comp_ser = trim(component) 

rec = recno 
else 

Sevullonobes= .f. 
endif 
1f .not. known .and.; , 

p_pnum = trim(mpnum) 
rec = eer) 
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Stit teneneu— ae ue 
Sea 
eta llimore =] £. 
endif 
case ee 


if known .and.; | 
comp_ser = trim(component) 
rec = recno 


Sti llimere=— 7a. 


1f .not. Known -and. not. ecmm@ 
rec = recno() 
still_more = .t. 

endif 


endcase 
endiz 


1f Upper(ans) = "VY" .ane Mot. eof() 
change_it = .t. 
CeObrect = .t, 
still_more = .f. 
checking = .f. 
endif 


enddo still_more 


if smet. Comrect sand. onetaestill Meme 
Qlsy0gerear to 20,79 
@ 22,16 say "Your PART cannot be found, and''+; 
ren ' may not be on file! 
ela 


do Tit, delay <0 
delay = delay + l 

enddo 

Gez7z7er clear to 22,79 

Component = blank 

usage =" # 

checking = .f. 

endif 


endedaam, 
enddo checking 


if changeset 


@ 22,19 say "Do you wish to modify this PART?: :" 
@ 23,26 say «| Yes / No j"! 
set confirm off 

ans = '' "| 

do while ‘not. ans $ "yYnN" 


an 
@ig22,52 aay ans 
read 

enddo 

set cone 

@ 22, ie eat Ke 23799 


at a = 'N! 
change_it = .f. 
else 
entering = .£. 
change_it a. 
endif 
endif 


if located .and. .not. change_it 
@ 22,16 say "Do you have additional parts to modify?: :" 
@ 23,26 say "| Yes / Now|" 


set confirm cre 


1Q2 





ans =! tl ‘ 
do while -not. dtismo 'vyYnN" 


an 
@ 22, 56 get ans 
read. 

enddo 

set confirm on 


if upper(ans) = "'N' 
set confirm off 
release all 
close databases 


return 
else 
component = blank 
aah = | 
O clear to 23,79 
endif 
endif 


enddo entering 


Ef ehangen)t 


* allow editing the part record 
new_mfq = blank 
new_mod = blank 
new_ dese) = space(50) 
new_ser = blank 


new_ptype = " | 
new_pnum = space(10) 


new_price = 0.00 
new_reqn = blank 
new_use = " " 

new_comp = blank 


changing ltss5 te 
changed = vf. | | 
ok = .t. && used 1f component 1s found 


do while changing_it .and. .not. changed 


@G@rs.0 clear to 20,79 
@3,5 say "Enter corrected Part information" 
227m say; 
"Make required changes, press RETURN when correct" 


@ 

GQ Sel Or sayeumode: :—" 

@ 6,7 say "serial #: "' 

@ 7,4 say "description: " 


new_mod = p_model 
@ a get new_mod PICTURE "@N!'! 
rea 


xX enter mfg serial# 
new_ser = part_ser 
@ 4c get part_ser PICTURE "@N!' 
rea 


* enter description 
new_desc = p_des 
@7,c get new_ cee PICTURE "@N!" 
read 


x determine if stock or component use 
set confirm off 
1f comp_ser = blank 


new_use = "'§S'! 
else 

new_use = "Ci 
endif 
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@ 9,1 say "designated use: '"! 
@ 9,20 say "(Storage / Component)" 
@ 9,c get new_use PICTURE "@!A" 


read 

do while .not. new_use $"'CcSs'"' 
new_use = ' " 
@9,c get new_use PICTURE "@!A" 
read 

enddo 


set confirm on 


enter component serlal# for use = C, search to see if on file 
comp_ser = blank for storage use 
use comps for use = C component ser # mandatory 


Seorage = se 


+ > OF 


1f upper(new_use) = "S" 
new_comp = blank 
endif 
x component use 
1f new_use = "C!! 


@10,0 cleaneten3 793 
@11,6 say "Component" 
@12,6 %Ssayeseriat ¢: " 


searaked = 2. 
do while .not. searched 
no_Sé@G— 20 


do while no_ser 
new_comp = comp_ser 
@12,c get new_comp PICTURE '"@!N" 
read 
1£ new_comp = blank 
@ 22,0 c¥éar to 27e79 
@ 22,20 say "Component's''+; 
" serial # may not be blank" 


Bee si 0 
do while delay < 25 
delay = delay + l 


enddo 

@ 22,0 clear to 22,79 
else 

no_ser = .f£. 
endif 


enddo no component serial# 


* check to see if on file 
select comps 
goto top 
set order to l 
goto top 
onvtlle =..f. 
done = .£. 


if eof() 

om _ file = .f. 
else . 

seek trim(new_comp) 
endif 


Lf ound ) 
searched = .t. 
Gn tide = .t. 
done = .t. 
endif 


1@ .not. found() or. eet ongtald 
© 22,0 ciar toca 79 
@ 22,22 gay 'ComponEn® Rot on.filee!!!™ 
seas 0 
do while delay < 25 


LO4 





delay = delay_+ 1 


Ge2770 clear to 22,79 


set confirm oir 
ans = '! 
do while .not. ans $"yYnN! 
“lek Tt 
@ 22,20 say "Is this the correct''+ 


" serial tee 
@ 23,26 say "[ Yes / No ie 
@ 22,50 get ans picture "@!A' 
read 
enddo 
Geecnueclear te 23,79 
set confirm on 


if upper(ans) = "y"! 
searches = .t. 
ok = .f. 
changing_ EC = Jee 
done = .t. 
GeZz-i> say “This component must ''+; 
ee "be entered first! 
ela 


do ie delay < 25 
delay = delay + 1 

enddo 

i Zao clear to 22,793 


xc 22,15 say "Please re-enter the eon erenmGet 


"' seria 
eee 4 
do while "de Lay <a25 
delay = delay + 1 
enddo 
mec, o clear to 22,79 
endif 


endif not found 
enddo searched 


endif use = Component 
25 Ok 
x enter property type (mandatory) 


select parts 
Goto rec 


oo off , 
say "property type: 
@ 14,20 (Plant 5 Manse / Other)" 


new_ptype = 

@ 14, Beet eee ice PICTURE Veta 

read 

do while .not. wee: S UnMeGo. 
new_ptype = PYRE 
@14,c get foots ype PICTURE "@!A" 
read 

enddo 


set confirm on 
* no property# for ees type property 


f upper new_ptype) = "91" && ensure it is blank 
new_pnum = space(10) 
endif 
xX enter property# mange cory for pia and minor property types) 
7S w_ptyp e) = "M" .or. upper(new_p oe WPM 


,9 say ieee ae #: | 
no_num = .t. 
do while no_num 


105 


new_pnum = Pplpnum- — 
@ a,c get néw_pnum PICTURE "GN1"' 
read 
if new_pnum = space(10) 
@22,12 say "Minor and Plant property 
= “require a property numa 
ela 


= 0 
do eae delay < 25 
delay = delay + l 


enddo 
Q°22,0 clearstomaa 9 
else 
 no_num = .f. 
endif 
enddo 
endif 


x enter price and requisition# | 
@ 17,10 say "price: §$" 
@ 18,9 say "reqn #: " 
new_price = p_price 
new_reqn = p_reqn — 
@ 17,c get new_price PICTURE "'@R 9,999.99"! 
@ A get new_reqn PICTURE "@!R 9999-NNNN/NNNNN'! 
rea 


set confirm off 

@ 2270 clear to 23, 79 

anc 1 i 

do while .not. ans $"aAyYnN'! 
ans = OSs 
@ 22,25 say "Are the modifications correct?: :;!! 
@ 23,29 say "[ Yes / No / Abandon]" 
@ 22,56 get ans picture "'@!A" 
read 

enddo 

@ 22,0 clear to 23,79 

set confirm on 


if upper(ans) = "A" 
chenginge rt =". f; 
endif 


if upper(ans) = "yY" && add mvar to dbf 
changed = .t. 
endif 


endif ok 
enddo changed or changeing it 
endif change_it 


* if original record was changed replace the old fields 
* with the new ones 


if changed _ 

set confirm off 

@ 22,0 clear to 22,79 

anca= shot 

do while w@t. ams $''yYuN” ‘ 
ans = io 
@ 22,22 say "Do you wish to file the modified part?: :" 
@ 23,29 Say "| S6ty/ Ne |" 
@ 22,61 get ans picture "@!A" 
read 

enddo 

G 22,0 chte tee 72 

set confirm on 


if upper(ans) = "N" 
changed = .f. 
endif 
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io res tans ) Se && add-mvar to dbf 
22,20 say "Standby while your entry is placed on file’ 


x place in parts 


select parts 
goto rec | 
replace p_model with trim(new “a 
replace p_desc with trim(new_desc 
replace part_ser with ae 
replace comp_ser with trim(new_comp) 
replace p_ptype with new_ptype 
replace p_pnum with tae aoe 
replace p_price with oo 

n 


replace p_reqn with trim(new_regqn) 
changed = .f. 
endif 


endif changed 


ie 


not. changed 


e275 0 Bie BOL 2am 9 
@ 22,18 say "Do you have additional part''+; 


Upuecoras = tommodi ry." 
@ 23,34 say a Mecm, Nor |" 
Setweconfirm orf 

ans =! i 

do while -not. ans $ "yYnN!! 


if upper(ans) = "N! 
Sahat = .t. 
clear 


els && set up for the next one 


@ 
@ 22,0 clear to 23,79 


entering = .t 

usadqe = oO 

mmod = blank 
description = space(50) 
mpart_ser = blank 
mptype = "' " 

mpnum = blank 


component = blank 
mc_mod = blank 
mc_mfg = blank 

Ne aoeee = space (50) 
me_ptype = 3 
mc_pnum = blank 
lname = blank 

fname = blank 


known = .f. 
famed = .f. 
change_it = .f. 
ok = .t. 


Cecnemerear to 20,79 
endi 


endif not changed 
enddo finished 


Sec. COntmnumeort 
release all 
close databases 


return 
enddo 


* EOF modpart.prg 
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15. MOD_HELP.PRG 


KAKKKKAKKKKAKKKARARKR Program: MOD _HLP.PRG KKK KKK RR RK KR RK KK 
= 
ABU HOL oc: 0: se eee : TIM Shamen . 
Purpose slg si ache ee : describes the options available to the 
user 
PCAllsSeceeeee sees eee? None 


Input/Output Files.: None 


* begin the text dialogue 
clear 


@ 0,14 say "7 O D Tay PROPERTY Hh BLP S CREE Ni! 
@1,0to 1,79 double 


text 
x Modifications are made to components and parts 
changing accountability or to the record itself 
x Imperative the correct serial number be inputted 
in all cases 
* Modifications are only accomplished to existing data 
ences. 
Gr2i 0 touZivao | 
Wait '' -> press any key for more help or ESC to exit"! 
clear 
@1,0 to 1,79 double 
Cex 
"CAUTIONS" 
x Extremely important that all information is 
enteredgeorrectly 
x Mistakes will be made so utiliaé the "NO" or 
"ABANDON" commands before resuming 
x Recommend using DELETION and ARROW keys for | 
modif ing data entered and ensune not to devia 
outside designated fields 
endtext 
@ 21,0 to .2iae | 
Wait " -> press any key for more help or ESC to exit" 
clear 
@1,0 to 1,79 double 
Cemet 
"WARNINGS" 
* Use of BACKSPACE key can cause PREMATURE exitin 
of an entry field, loop back for re-entrance o 
data 
x Serial Numbers must be accurate and precise 
endtext 
@ 21,0 toe2i Ss 
Wait '" -> press any key to exit" 


*EOF MODSHEEP. FRG 
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16. OQWNERS.PRG 

RAKKAKKKAKKRAKAKAAAKA = Program: OWNERS. PRG KRAKKKKKKKKAKKKAKRKKAKKR 
~ 

Ute Oereeieme seeieieee 5 « eel Se.A LON 

= PUT DOSE mimes «sis. 5 ciis : displays the entire file of custodians, and 
Z locations that they have property 

ZG ROMERO eS es 4. secrets, at None 

sinput/Outpue Files.: None 

clear 

SeemGomotrm On 

set headings off 

Serect Lt . 

use homes index 1_fnames 

ete taeZ 


use owners index names . . 
set relation to last_name + first_name into homes 


end_list = .f£. 
do while .not. end_list 


lname = ce 
fname Bec LS 
cl = 0 
31 
43 


20 sale Bes feOep 1] A N 
719 pees 
1, “S to am 79 


6 Ewes )  t oNoGaoae 
Z 

=f ,Cc1lt+3 say ESOC dari. 

3, 


c2 say "Office" 
Cons aae "Home Address" 


eof() 


@ 
@ 
@ 
@ 
@ 
@ 


do while .not. 
do case 
ease. lactenames= 
skip 
otherwise 
@ line,cl say trim(last_name) + ", 


iiloeatton <> |HOME" 
line,c2 say location 
endif 


1f location = "HOME" 
line,c3 say trim(homes->street) + 


PISO DY Te IE 


' + first name 


" + homes->city 


endif 
line = 
skip 

do case 


case lname = last_name 
.and. location = "HOME! 


if line = 5 
@ line,c3 say trim(homes- >street) +; 


line + 2 


.and. fname = first_name; 


"+ “—homes- ee ay 


else 
@ line - 2,c3 say trim(homes- >street) +; 


+ homes- ->city 


endif 
skip 
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endcase 


lname = last_name 
fname first_name 


if lemme oz 
? 
? 
Walt: 
ats cteee ote any key to continwuéy or ESC to Seas 


clear to 20,79 
& oom O clear to 2ae 79 


line = 5 
endif 
endcase 
enddo 
LPreoE 
54 72529 aay " That is everyone on file " 
ela 


do oo delay < 25 
Gelay = delay + l 
enddo 
@ 22,25 clear to 22,79 
@ 22,15 say; 
"Press any key to return to Search and Listing Menu! 
end_list”™ =i 
Vane 
endif 


close databases 
release all 
return 


enddo 
“EOP OWMerS . Dig 


17. PMANF.PRG 


KAAKKARKKKKAKKKKKAARK = Program: PMANF.PRG KAKKAKAAKAKKKKKAKKAK 
* 

AP ees... . + 2 eee : TIM SEATON 

*Purpose............: displays the components by mfg searches 

on c_mtg 

ZBL | S300 cexs ele erae ce cena : None 


*Input/Output Files.: None 


clear 

set confirm on 

select 1 
use owners index names 

select 2 


use comps index name_loc 
set relation to las _name + first_name into owners 


end sbish «_<£. 
do while .not. end_list 


blank space(15) 
"iia 


mmfg = 
@0O,14 say; 
re O POW) 2 hr me G SEARCH SCRE Fi 
@ boyto ly 19 double 
@ 2,0 €o 2199 
@ 22,25 say "To EXIT leave mfg name blank" 
@4,6 say "Enter Mfg'" 
G@6,6 sx” name: ' get mmfg PICTURE '@!N" 
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read 
1f mmfg = blank 


clear 

release all 
close databases 
return 


endif 
QQ 22,07 elesr to 22,79 


gotor top 
ber CRaGu Onn | 
locate for c_mfg = ltrim(mmfg) 


if found ) 


‘ia) 


ZA0Geweareyto 20,79 
Ze Say Paes 
2,6 say mmfg 


@ 
@3,cl say "Model" 

(4 Cleon e cine |” 
@3,c2 say "Custodian" 
@ 462 tor4 c2r? \. 
@3,c3 say "Location" 
G4 ,c3 to nests 

d 


o while .not. eof() 
@ line,cl say c_model 
do case 
case last_name = "AS DEPT" 
@ line,c2 say last_name 
@ line,c3 say trim(owners->location) + ", " +; 
| first_name 
otherwise | 
@ line,c2 say trim(last_name) + ", " + first_name 
it loc cede. = "H!' 
fine,c3 say "HOME' 
elise _.. . 
@ line,c3 say owners->location 
endi 
endcase 
Cmelinct! eomsay => "+o" desc 
line = line + 


af line wae | 
@ Fe oee "Press any key to continue, or ESC to exit! 
wal 
@6,0 clear to 20,79 
@ 22,0 clear to 24,79 
line = 6 
endif 


continue 


if eof() 
Gec2 coesay Nothing further 1s on file” 
cae) 5 0 
do while delay < 50 
delay = delay + 1 
enddo 
MEZcO clear to 22779 
endif 


enddo 


else 


@y27z270 clear to 22.79 


@ 22,27 say 'Nothing is on file for this mfg" 
delay = 0 


11) 


do while delay < 50 
delay = delay + 1 


enddo 
@ 22,0 Clear cou2zz57 
endif 
@ 22,15 say ess any key to return to Search and Listing Menu" 


end_ fist = 
Caer clea! 


close databases 
release all 
return 


enddo 
x EOF pmanf.prg 


18. PMOD.PRG 


KAKRKAKKKAKKKKKKARAKK Program: PMOD.PRG KAAKAAAKKKRAAKRAKKRKKK 
AAUCHOP..20+-00000+03 DEMO 

~Purpose..........-.: displays the components by model searches 

os on c_model 

RCAlIS..sseeeeeee eee? None 


*Input/Output Files.: None 


clear 

set confirm on 

Semect a 

use owners index names 
select 2 


use comps index name_loc 
set relation to last_ name + first _name into owners 


end_list = .f. 
do while .not. end_list 


blank = space(15) 
mmod = blank 


@0,12 say; 
“COMPONENT Os D abel S BAR CR SC R E ESE 
@ 1,0 to 1,79 doubfe 
@ 21,0 to 2m 
@ 22,22 say "To EXIT leave model name blank’ 
@ 
@ 


4,6 aay "Enter Model" 
6,6 ay " name: '' get mmod PICTURE '"@!N" 


if mmod = blank 
clear 
release all 
close databases 


ée 22,0 lear to 22,75 


gota top 

g@t @kact off 

locate for c_model = ltrim(mmod) 
line = 6 

el = 

ce =Za 

GS™ $a55 

i¢ femnd() 


2,0 clear toeze77? 


lal. 





eave MODEL, :" 
say mmod 


tesey "Mig™ 
eres Clt3.. 

2 say "Custodian" 
Zuo 4 C215 |. 

say "Location" 
3 tore cts 


doucielew. not. eof () 
@ line,cl say c_mfg 
do case 
case last_name = "AS DEPT'! 
@ line,c2 say last_name 
@ line,c3 say trim(owners->location) + ", " +; 
first_name 


MOD MODM MM 


otherwise | 
@ line,c2 say trim(last_name) + ", " + first_name 
Peelocweode = |! 
fine,c3 say "HOME" 


Se . 
ielame, cs say owners->location 
endif 
endcase 
Ceiinieaueeesay '-> " + c_desc 
line = line + 
1 La ole As, 
@ Baise) "Press any key to continue, or ESC to exit" 
wal 


Geo tacrean to 20,79 
@ 22,0 clear to 24,79 
line = 6 

etast 


continue 


if eof({) | . 
‘ Bence say "Nothing further 1s on file" 
elay = 
do Bare delay < 50 
delay = delay + 1 


enddo 
Geez ecloar to 22,79 
endif 
enddo 
else 


Chezz, Ouclear to 22,79 . 
@ 22,25 say "'Nothing is on file for this model" 
eS 0 
do while delay < 50 
delay = delay + 1 
enddo 
(Ce2Z, Oeeleanaye 22,79 
endif 


@ 22,15 say "Press any key to return to Search and Listing Menu" 
end jist = .t. 

Witmer) aut 

close databases 


release all 
return 


enddo 
* EOF pmod.prg 
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19. PROPERTY.PRG 


KRKKKAKKKKKKARKK KKK KKK Program: PROPERTY.PRG KAKKKKKKKKKAKKK 
KAUCHOL 2. 00-5 s sees: see eee | 
*PUrPOSE.+++ee--.e-2: Main Menu displays @ehesvarteus seagicce came 
x available for the user. 

RCalls...seeeeeeeeeet ADDMENU.PRG, MODMENU.PRG, DELMENU.PRG, 


REPORTS. PRG, ADHOG#eEe 
*Input/Output Files.: None 


RAK KKK KK KK set up the working environment ****x*xxxxxkxX 


x restricts the control ,ane@ambertaces stricem ero this 
* application, and not with dBase III plus 


set color to gr+/b, 1/ wee 
close databases 
clear 

clear all 

set talkeoner 

set echo off 

set scemeboard off 
set bell o 

set status off 

set safety off 

set deleted on 

On €SGapeune funn 


x display the opening screen 


Cexr 
Property Management System 

The Property Management System is an application program to 
assist the Admin Science Dept in maintaining accountability 
for departmental property. 

endtext 

? 

? 

? 

? 

wait 


* Check the users password Gor their access rights, Sit Ghee 
* application program if no proper password 


clear 
set intensity off 
set confirm on 


password = space(10) 
access = space(10) 


@ 8,20 to 11,60 double 
nowcodée = .t. 
do while no_code 
@9,21 clear to 10,59 
@9,23 say "ENTER YOUR PASSWORD: " 
@ 10,23 say " (or press return to quit)" 


* hide the password typed by changing inputs to the same color as 
* the background, set it back after input entered 


set color to b/b, By/b, B, b 
@9,44 get password 

read 

set ~olor to @roti/b, c/o), b 


do case 
case password = space(10) 
6et collor to w/n, n/w, n, n 


li4 





| 
| 


quit 
release all 


eo Meee 2 

case lower(password) = "limited" 
access = "read_only' 
Nemcoue = .f. 

case lower(password) = "unlimited!" 
access = 'read_write! 
Momeode = .f- 

otherwise 


@ 9,21 clear to 10,59 
ieeoezeoesay “LMPROPER PASSWORD, PLEASE RE-ENTER" 
aoa = 0 
do while delay < 25 
delay = delay + l 


enddo 
password = space(10) 
endcase 
enddo 
clear 


set intensity on 


x the program begins, the start of the dialogue unit, similar 
x menu screens are used for options 1 - 5 


do while .t. 


set cont. rmmort 
clear 


ZnO tome 69 double . 
Blo Say “aaa Management Main Menu! 
4,11 to 4,68 double 


a 

@ 

@ 

@ 6,27 say " 1 - LISTS or SEARCHES" 
Gi c say 2c -PeRINT REPORTS" 

@ 9,27 say " 3 - ENTER new Bporer ty” 
@10,27 say " 4 - DELETE property’ 

Gel Z2 say Oo = MODiry property" 
Celso, 2) say ' H- HEVes 

GelorZzi say 4 0 - Exit to MS DOS" 

@ 17,30 say '"' selection: : ' 

ehoice = Wau 

@ 17,42 get choice 

read 


x display an asterisk next to the choice, choice row used for 
* erasing other rows 
Beeenotee &!nHiOl2345" 
do case (cho: sis 
case upper(cnoice) = : 
@ f3 26 say a 
choicerow = 13 
case choice = "0! 
eamor zo. say ix" 
cholcerow = 15 
Gdocmeneice Sii2"" 
Geomval(cholce.26 say \'*" 
choicerow = 5+val(choice) 
otherwise | 
@ 6+val(choice),26 say "*" 
choicerow = 6t+tval(choice) 
endcase 


firstrow = 6 


Go while rowent < rows 


i 


1f rowcntt+firstrow <> choicerow- 
@ firstrowtrowcnt,27 say space(25) 
endif 
rowent = rowcnt fa 
enddo 
endif 


x do choice, access must match the password a user entered 
* this is the control section of this program 


do case 

case choice = "0" 
set colon to w/n; gaan, n 
wore 

case.cnoice = 20 
if lower(access) = "read_only" .or.; 

lower(access) = "read_write' 
do adhoc 


se 
@ 19,10 say: 
NRkKAKKX you do not have proper access''t+; | 
" for this selection *>7aaas 
: 
walt 
loop 
endif 


case choice = "2"! 
1£ lower(access) = "read_only" .or.; 
lower(access) = "read_write" 
do reports 


se 
G@ 19,10 say; 
IxAXKAKX vou do mel haves prope access +: 
" for this selection “=a 


case choice.=, "3" . 
if lower(access) = "read_write' 
do addmenu 


19,10 say; 
"UkKAKEX you do not have proper access't+; 
" for this selection ****x*x" 
is 
wait 
loop 
endif 


case choice = "@'' . 
if lower(access) = "read_write'"' 
do delmenu 


se 
@ 19,10 say; 
"kAKKKK you do not have proper #eaksa''+; 
" for this selection *****x*" 
3 
walt 
loop 
endif 


case choice = "5" - 
if lower(access) = "read_write" 
do modmenu 
else 
elie es da et bh 4 
ou do no ave proper access''+; 
- et for this séléction *****xm 


? 
wait 
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loo 
endif : 


case upper(choice) = "H' 
do main_hlip 


otherwise | | | 
@ 19,22 say "****** not a valid selection ****x*x"I 
= 


walt 
loop 
endcase 
enddo 
Seaer DrOperty.prg 


20. QRY_HELP.PRG 


RKKKKAKARAKKARAKARAAK Program: QRY_HELP.PRG KAKKKKKKAKKARKKARK A 
BaUON is. yees ss ...: TIM SEXTON | , 
“Purpose Meee sss »..: Gescribes the options available to the 
user 
*Calis SE oo ES »..: None 


*Input/Output Files.: None 


x begin the text dialogue 

clear 

@1,0 to 1,79 double 

CeO > Save L 1S T AN D Seba R Coo HE eee Mo bea 
text 


x Searches are designed to provide the user with 
the following lists: 


1. Custodians on file 

2. Locations of Components of interest 
3. Custodians of various Components 

4. A List of a Manufacturer's Components 
5. A List by Model of Components 


* Component Lists will provide the Component 
location 


* To search on a custodian, ensure the name is — 
Smbened ds tt is kept on file. Wpticmaiy 3 will 
provide a list of all custodians. 


endtext 
Ceol, 0 to Zin 79 | 
iat -> press any key to exit" 


~EOF ORY eee PRG 


21. QTR_RPT.PRG 


KAAKKKKAKKKARKAKKKKKK Program: QTR_RPT.PRG KAKKARKKARKKKKK 
SPMMETION «<<< s+ 0) ....: TIM SEXTON 

1510 0 lo) a rar ace: Roan three reports 

x . components grouped by custodian and 

= location 

a 2. parts grouped by custodian and component 

zs 3. parts that are not pan coed to components 

A (stock) involves creating temporary files that 
a are erased after the reports are printed 

Oriel MS Fae re eos) engine. 6 ds eo weer IPMS. oR ot Oehrak.. rR, cCOMPS.DBF, 


BO 


x PARTS.DBF,OWNERS.DBF - 
*Input/Output Files.: none : 


* This program will join the owners and components to allow 
* printing the component and property reports 


set confirm of 
set exact on 


clear 


select 1 
use parts 


select Z 
use owners 


select 3 
use comps 


do while .t. 


@0,18 sa 4 UARTERLY R EP O Raa SCRE EN! 
,O to 1,79 double 
170 toGZiegs 


6 say "kxxRKARARKR SET UP THE PRINTER  *X*x*x xR ARAN 
6 say "Standby while the files are joined for prepar acai 
" the property egier ia 


~ re ~~ 


kkKAKKK temp 1s used to join campus owner with component ****xx*x 
select comps 


join with owners to temp for loc_code <> "H'" .and. owners->; 
location <> "HOME" .and. last_name = ownens->lastaname “amas 
first_name = owners->first_name 


KKKKKKK tempZ2 is used to join home ownér with component *~*****x*-% 


join with owners to temp2 for loc_code = "H" .and. owners=->; 
location = "HOME" .and. last_name = owners->last_name .and.; 
first_name = owners->first_name 


KRAKKRKKKRKKKAK KAR temp 1s used for component report KREEAKKKKKKKKAKKK 


select 4 
use temp 


append from temp2 


index on last_name + first_name + location + c_mfg +; 
c_model to temp 


KRRKAKKKKKKKKAKK temp3 Ls used cor part répore KREKKKAKKKKKKKKKAKKKK OK 


join with parts to temp3 for comp_ser = parts->comp_ser 


select 5 
use temp3 


index on last_name + first_name + location + c_mfg + c_model +; 
comp_ser to temp3 


close databases 


* check if printer is set up or allow abandon current operation 


done = .f. 
eS > ihe 
do while .not. ready 


@ 8,0 cl@ir to 3,79 
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Ona pememecar tO 25,/9 | 
eee say is Che printer ncedy for Printinee. 


@ 23,22 say "' { Yes / No / andon |! 
ans = 1 ul 
do while .not. ans $ "yYnNaA" 
ane = Wo 
@ 22,57 get ans picture "@!A" 
read 
enddo 


@ 22,0 clear to 23,79 


x if not ready wait and loop 


ae Re ans s) = UN! 
Slay. ress any key when ready to ready to continue 
e's, ee kK h dy t d i 


eae ae 


Gre 0r cleameuo 8,79 
endif 
ii upper (ans) = Al 
ready = .t. 
eo nen — at 
endif 


if upper(ans) = "yY"' 
ready = .t. 


endif 


enddo not ready 


Bei 


enot. done 


clear 


eee 
use temp index Bene 
ie eG ene component report 


report form temp to print 
select 2 


use temp3 ee temp3 
fe edo the par t- Buope tty report 


report form temp3 to print 
select 3 


RRR AR RRRRHA do the stock part list 
report form stokpart to print for comp_ser = space(10) 


done = .t. 


endif not done 
if done 


erase temp.dbf 
erase temp2.dbf 
erase temp3.dbf 
erase temp.ndx 
erase temp3.ndx 


clear 

release all 
close databases 
return 


endif done 


enddo 


-cOL cuir pteprg 
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22.° REPORIUS.PRG 


KREKKKAKKKAKKKKKKKKERE Program: REPORTS.PRG KREKKKKKKKKKKKKAKKKK 
KAUChHOL. 6.660 eee ene 2 | pep ene 

APuUrpOSe.....++e+e--? MENU GispRaycene Choteecr iia avSEEC EE 

x property report or a summary report by 

* DrOpentyace pe and number 

Go IS teres ccageeneLs tn : ene Riedie SUMUREY 3 Pac 

“Thou, OUtpUt Hailes. ONE 


x set screen environment 


euleak 
set Camfirm off 


* dispalay the dialogue menu 
do while .t. 


clear 

2,190 to 13,69 double 

Sy SoU nsay “Property ReSOrResanenu” 
4,11 to 4,68 double 


6,27 say " 1 - QUARTERLY eeeernt! 
7,2? say " 2 - PROPERTY S@UUIARY rescore’ 


@ 
@ 
@° 9727 say " H = nba 
@ 
@ 


llaZz/ say"! 0 =gRE cunts te main menu" 
3, 30msay " segdkection = : 


chezce = =" . 
@ 13,42 get choice 
read 


; place an asterisks next to a valid choice, and erase the other 
rows 


we choweesse PhHOd2! 
do case 
case @ Ose Sa = ey 
Say iT 
Se st = 9 
case choice = "9! 
@ll,26 sage 
choicerow = ll 
otherwise 
@ 5+val(chotee) 25. ssa *" 
choicerow = S+val(choice) 
endcase 


firstrow = 6 
rows = 7 
rowcnt = QO 
do while rowcnt < rows 
if rowcnt+firstrow <> choicerow 
@ firstrowtrowcnt,27 say space(30) 


(a) (a) (a) 


endif 
rowcnt = rowcne + 1 
enddo 
endif 
* do choice 1f valid, or” loop back thru this program 
do case . 
cas®@ choice = "0" 
return 
case choice = "]" 


GO .ger _rypic 
case choice = "2" 
do sum_rpt 


case upper(choice) = "H' 
do rpt_help 
otherwise 


[20 





Cement so Onemmenot a valid. selection ***x*xx" 
. 


wait 
loop 
endcase 
enddo 
SEQOF reports.prg 


23. RPT_HELP.PRG 


KKKKKKKKKKKKKKKARKRRK Program: RPT_HELP.PRG KKKKKKKKKKKKKKKKRK 
RealOne . ss. «cSt : “TESS EON | | 
RPULPOSE+ + eee eee eee describes the options available to the 
user 
ecalls Mes. os aarist ate ;: None 


*Input/Output Files.: None 


x begin the text dialogue 


clear 

@1,0 to 1,79 double 

Mmeris say "PROPERTY REPORTS HELP S CREE N?# 
text 


x Ensure Printer is ON and READY 
x Reports are pre-formatted 
* Provides two types of Reports, namely: 


x peed os) enouped by Custodian/Owner 
xx =Summary----- Grouped by Property Type 
and Property Number 


endtext 
fe Oto. 21,79 
Wait " => press any key to exit" 


XEOF RPT_HELP.PRG 


24. SLOCATIO.PRG 


KRKEEKEKKKKKKKKRKKRKKKKKKK Program: SLOCATIO.PRG KEKKKKKKKKKRKKKKKKKKE 


rad 

SPNMIORM ne. 6 as wos : TIM SEXTON 

“Purpose A ore a eee : ae components and the location 
he component , searches on loc_code 

el re MNES WI ee eta cai eh 5. $ None 


*Tnput/Output Files. None 


set headings off 
set confirm off 


S¢ leciuacdas 

use comps index name_loc 

finished = .f. 

do while .not. finished 
clear 
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VEPOFT ONENT Ea@sc. Alo oN L 1 9sa > C Rae oa 


21,0 TOMmZie , 
2,26 say "Leave choice blank to EXIT" 


4,27 say ' LOGATTI ONE. 

7,27 say " 1. “HOMeRor OFFICE” 
9,27 say " 2. SSR AGe" 

11,27 say > 3 ese 


ROmaS ia 2 
do while no_ 
@ 16,20 Say "PLEASE ENTER YOURSCHOTCE:" getwame 


DMADD OAD f@ 
ho 


read 
if ans S$ 9 7s" 
no_ans = .f. 
else 
ans = iI! 1 
endif 
enddo 
if ans <> " " 
clear 
do case 
case ans = '']'! 
code = "pl 
@0O,28 say "PERSONNEL COMPONENTS" 
case ans = "'2"' 
code = '"'s'! 
@0,28 say "STORAGE COMPONENTS" 
case ans = "3" 
code = “Er 
@0,28 say "LAB COMPONENTS"! 
endcase 
er top 
T,O° ton ile 79 


@ 21 0 20 21) 79 
if code = "p" 


do while .not. eof() 
Vi last _name = "AS DEPT! 


skip 
else 
line = 7 
lname = last_name 
fname = first_name 
@ 3 4 say "Custodian: " . 
@3,15 say rec tome name) + " |" + first_name 
@5,2 say "Mfg/Model' 
@ 6,2 tou6, 10 
@5,32 say "Serial #" 
@ 6,32 to 6,39 
@ 5,50 say 'Ptype & number" 
G€ 50 te 6765 
@5,72 say "Location" 
@6,74 to 6,728 
do while last _name = lname .and. first_name = fname 
We lécucodé = "0" -.or. locucod sy am 


ine,O say trim(c Wegye / " + c_model 
@ line,32 say eo pty ser 
@ line,50 say ype + " = " + c_pnum 

wf loc_code # ‘0 . 

@ fine ,72 bay "\OPeres" 
endif 
it tocacod,S "nh 

ine,72 say 'Home" 


L de 





endif 


line = line + 2 
skip 


if line > 20 .and. (last_name = lname; 
and. first_name = fname) 
ae2, 0 cleag to 22,79 
@ 22,4 sa pcre ope E LY (+ 
Moveiile tor thls Ctistodian, press''+; 
ey eieeyeeO. Continue” 
Walt! i] 
ey O clear to Zoe73 
@ 22,0 clear to 22,79 
line = 7 
endif 


1f last_name <> Iname .and. first _name <> fname 
Geezer clear to 22,79 
Cezeee say “That is all"+; 
Wyehat 1s on file, press any"+; 
Meese). ©O (CONeINe, sOmmESe tO exit" 
wai1t!! iI 
line = 7 
@ 3,15 clear to 3,79 
@7,0 clear to 20,79 
e2zeoeclear to 22,79 
endif 


enddo 
endif 
enddo 
etait 


1f code = ''s!! 


Iname = "AS DEPT" 
seek lname 


1£f found() 

line = 7 

@3,4 say "Custodian: " 

@ 3,15 say "AS DEPT! 

@5,2 say "Mfg/Model" 

@ge 2 to 6,10 

@ 5,32 say "Serial #" 

@.6,32 to 6 26 

@5,50 say "Ptype & number" 

mGm50 tO 6,63 : 

@5,72 say "Location" 

ia 6,72 to 6,79 

do while last_name = "AS DEPT! 
Ti wilec, codep—mus'' 


@ Tine,O say trim(c_mfg)+" / " + c_model 
@ line,32 say comp_ser 

@ line,50 say c Bee ee omum 

@ line,72 say ie 4)" 

line = line + 2 

skip 


if line > 20 .and. (last_name = lname; 
wand. loc_code = '"'5'') 
ayz2-0 clear to 22,79 
@922,9 say “Additional storage RROR es Oyen 
"on file, press any key to continue" 
wait"! 1 
@7,0 clear to 20,79 
@ 22,0 clear sto 22,79 
iline = 7 
endif 
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Seis 
skip 
endif 
1f last_name <> lname 
22,0 clear to 22,79 
@ 22,4 say "That is all"+; 
" that ison file, press any''+; 
' key to continue, or ESC to exit" 
Wet 
endif 


enddo 
else 
@ 22,0 €lear to 22,79 
@ 22,12 say "No storage components on file,'"+; 
"press amy Key Co contanuwe™ 


washes 1 
elear 
endif 
enddo 
endif 


if code = "L" 
lname = "AS DEPT" 
seek lname 


if found() 
line = 7 
@ 3,4 say "Custodian: " 
@ 3,15 say "AS DEPT" 
@ 5,2 oe wie, lode L" 
C6 AZ towo. 10 
@ 5,32 say "Serial #" 
GQ 6732 tere, 32 
@ 5,50 say "Ptype & number' 
@6,50 to 6,63 
Q@ 5,72 say "Lecawron 
G6, 72 tome. 7s 


do while last_name = "AS DEPT! 


12 lo¢ cade = ''L" 
@ fine,O say trim(c_mfg)+" / " + c_model 
: 1 =A Say comp_ser , 
ine, say c pe +" = " + ¢ pnum 
@ line,72 say ee ty _name oa 


line = line + 2 
skip 


if line > 20 .and. (last_name = lname; 
and... loc_cod# © "L") 
@ 22,0 clear to 22,79 
@ 22,12 say "Additional lab et Reatiaee 
"on file, press any key to continue" 
walt! ' 
@7,0 clear to 20,79 
eu22,0 clé@r to 22,79 
Jing = 7 
endif 
elses 
skip 
endif 
1f last_name <> lname 
2 cia to 22,79 
@ 22,4 say "That is all''+ 
" that is on file, press any''+; 
" key to continue, or ESC to exit" 
watt"! it 
clear 
endif 


enddo 





else 
Go 279emeclear to 22,79 
@ 22,15 say "No lab components on file,'+: 
"press any key to continue’ 


Wiadekib at 
clear 
endif 
enddo 
endif 
else 
clear 


release all 
close databases 
return 

Snadit anssnoe ~ © 


ans a It i! 


enddo | 
mor slocatlo.prg 


25. SOWNER.PRG 


REKKKKKKAKKKKKARKKAKK Program: SOWNER.PRG  *xkAAKAKKARRAAR ARR ARAM 
- 


NBEO L Gaels leigemwn.te eM IGE LON 

PEULbOse..0-6e-.. 0) Glsplays custodian's components and the 

x location of the component, searches on last 
* and first name 

BOOS. 3s ese amncs ss 2 None 


*Input/Output Files.: None 


clear 


set confirm off 
set headings off 


aeuect 3 

use homes index 1]1_fnames 
select 2 

use owners index names 
select 1 


use comps index name_loc . | 

set relation to last_name + first_name into owners 

Finished = .f. | 

t. finished 

adobe 
space(15 
,18 sa MeO Viees 0 NebeN. T © E AmheeeH BS GoRSE E N" 

i) Omee 1,79 Gouble 

Zi Omer 21.79 

22,2! say "To EXIT leave choice blank" 


@ 
@ 
@ 
@ 
: 4,4 say Choose jesedhelhetemeone Of the following: :" 
@ 
@ 


Q. 
O 

a 

x 

}- 

iB 

iD 
nnd 


6,4 say 1. Components assigned to a Custodian '" 
7,4 say " Zemeamponents Of the AS DEPT " 
4,45 get choice 
read 
do case 
case choice = '' "! 


clear 

release all 
close databases 
return 


case choice =. 
4,0 cleaieton7 (79 
set confirm on 


@4,0 say "Enter custodian's" 

say “last name: " get mlname PICTURE "@!A" 
@ 22,0 clear to 2272 
@ 22,13 say 'To exit leave custodians name blank'! 


read 


1f mlname = space(15) 
clear 
release all 
close databases 





@ 22,0 clear to 22,79 


no_fname = .t. 
do while no_fname 
@ ee say "first name: " get mfname PICTURE "@!A" 
rea 
if mfname = space(15) 
@ 22,0 clear to 22,79 
@ 22,24 say "Require at least a first initial" 
eee 0 
do while delay < 25 
delay = delay + 1 
enddo 


no_fname = .f. 


set GonGinie oe 
select comps 
goto top 

set exact ome 


seek mlname,mfname 
1f found() 


@0,0 clear to 0,79 

@ 4,0 clear to 7,79 

@ 22,0 clear to 22,79 
line = 

@0O,25 say "Custodian: " + trim(mlname) + ", " + mfname 
@3,5 Say “ire /*Moder” 
@4,5 to : 

@ 3,35 say "Seria Fl 
@4,35 to 4,42 

@ 3,52 say “Boer uen" 

@ 4,52 Go asa 


do while last_name = mlname .and. first_name = mfname 
@ line,2 say trim(c_mfg) + " / "+ c_mode 
@ line,35 say comp_ser 


do case 
case loc_code = "H" 
select homes 
seek mlname ,mfname 
© Mine ,52 sty tram(strest) +", " + Ginty 
otherwise 
@ line,52 say owners-> location 
endcase 
seiect @ 


skip . 
line = line + 2 


if line > 20 .and. (last_name = mlname .and.; 
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first_name = mfname) 


Geen Clear to 24,79 
line = 6 
endif 


if last_name <> mlname .and. first_name <> mfname 
Zivmemear to 22,79 
@ 22,12 say "Nothing BUmeeeineon file,''+- 
"press any key to continue" 
Walt it 
clear 
endif 


enddo 


else 
22,0 clear to 22,79 


Pee say : 

" Either no property on file for eos tndividual" 
12,8 say ORy 

13,8 say; 

" The name entered does not match what is on file” 


Vv MM Mm 


Gace chomee. = !'2"! 
@0O,0 clear to 0,79 
@ 22.0 Clear tomZ2,79 
@4,0clear to 7,79 
@0,32 say "AS DEPT PROPERTY'! 


mlname = "AS DEPT' 


select comps 
goto top 

set exact off 
seek mlname 


if found() 
line = 6 
@3,5 say aay / Model" 
C 4,5 to 
@ 3,35 say "Serial #" 
@4,35 to 4,42 
Crs So 2mcave | Location)" 
@4,52 to 4,59 


do while a name = "AS DEPT" 
@ line,2 say trim(c_mfg) + " / " + c_model 
@ line, 35 say comp_ser 
@ line,52 say owners-> location + first_name 


skip | 
line = line + 2 
1f line > 20 .and. last_name = "AS DEPT"! 
@ 22,0 clear to 22,79 
@ 22,15 say "Additional property on@ialeg- - 
" press any key to continue" 
Wait! i 
line = 6 
@ 22,0 clear to 22,79 
ipo Oweredr to 20,79 
endif 


if last_name <> "AS DEPT'! 
@ 22,0 clear to 22,79 
@ 22,12 say "Nothing fumeher on file,'+; 
"press any key to continue" 
Blah jew iI 
clear 


by 


endif 
enddo 


else 
@ 22,0 clear to 22,79 
@ 22,12 say " NO property on file fer themes Garni 
| l pPilesseany= Key tO Comerauc 
walt! if 
clear 
endif 
otherwise 
@ 22,0 ec lear stom Jae 
@ 22,17 say "Not a valid selection, please re-enter or'' 
cen 0 
do while delay < 25 
delay = delay + 1 
enddo 
@ 22,0 clear to ZZ 79 


endcase 


enddo 
*~ EOP sowne ron 


26. “SUNSEE IEG 


KAAKARKKKKKKRARK RRR KR Program: SUM_RPT.PRG KRKKKKKKARAKAKR 
*Author......+.++.50: DEM eee 

XPUEOGSE.. > + + +cueeneeee rints three reports 

a components grouped by property type and 
a number 

zs 2. parts assigned to components grouped by 
a propeaty Cee and number 

e . Parts that are not aSSigme CoO conponenie 
* (stock) grouped by property type and number 
x involves creating temporary f1les that are 
= erased after the reports dye printed 
eCalls....ssseeeeeeet TEMPL. ERM, PARTSTOK »BRM (RaRTSUM PRE, 


| COMPS -DBr, PARTS DEF, GWE. .UEr 
*Input/Output Files.: none 


* This program will join the owners and components to allow 
* printing the summary property reports 


set confirm off 
set exact on 


clear 


select 1 
use parts 


select 2 
use owners 


select 3 
use comps 


do while .t. 


@ 0,20 a "S UM MAR Y REPOR 2 SCRE E N'! 
@1,0 to 1,79 double 
@ 21,0 to 2!) 


@ 8,16 say "xkxxkRAARARR SET UP THE PRINTER = ***x%xRR AHR 
@ 22,6 say "Standby while the files are joined for dg pe) 
" the property reports” 
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AkKKKKK temp 1s used to joln campus owner with component ****xxxx 


select comps 


join with owners to temp Boa lOCuCodem<. 1H" Sana. owners-> ; 
location <> "HOME" .and. last_name = owners->last_name .and.; 
first_name = owners->first_name 


AKKAKKK temp2 is used to join home owner with component ***x**x*xx 


join with owners to temp2 Mere OGmeoede = Hi. and. OWners-> ; 
location = "HOME" .and. dlast_name = owners->last_name .and.; 
first_name = owners->first_name 


ae temp2 qs then appended ee. temp Ge 
KKAKKRKKKRKRKRARKR temp 1S used for component nHEport KRAEAERKKARKKKKRKKEKR 


select 4 
use temp 


append from temp2 
index on c_ptype + c_pnum to temp 


KAKKKKKKRKKKKKEE temp3 as used fOr Selec EEDOLe AKER KKKEKKKKKEKKESE 


join with parts to temp3 for comp_ser = parts->comp_ser 


select 5 
use temp3 


index on p_ptype + p_pnum to temp3 

AAAKKAKKKKKKEK parts are indexed on type & num *X*AKKAKAKAARKAR 
select parts 
index on p_ptype + p_pnum to type_num 

close databases 

x check if printer is set up or allow abandon current operation 
done = .f. 


eae ee 
do while .not. ready 


Gmor@relear to 6,79 
GEZZ Onelear to 2379" 
@ 22,22 say "Is the printer ready for printing?: :! 


@ 23,22 say "! [ Yes / No / Abandon }'! 
ans = ou 
do while .not. ans $ "yYnNaA" 
ans = WoO 
@ 22,57 get ans picture "@!A" 
rea 
enddo 


@ 22,0 clear to 23,79 


x if not ready wait and loop 
if upper(ans) = "N'!! | 
8,18 say "Press any key when ready to ready to continue" 


wait " 
@ 8,0 clear to 8,79 
endif 


if upper(ans) = "A" 
t 


if upper(ans) = "y" 
ready = .t. 


enddo not ready 
if .not. done 


P29 


clear 


Semcc Glas 

use temp index EenD 

RRAAKRRKRKEKK do the Compement property eypcucenmmeon: Tempo. 
report form templ to pmmae 


select 2 | 
use temp3 index temp3 


ARRKAS AA Ome me ae popes ty report 
report form partsum to prin 


Seleces 
use parts index type_num 


AAKRRAARKKAK GOy the 1s te cimee aah ecin 
report form partstok to print for comp_ser = space(10) 


done = .t. 
endif not done 


if done 
erase temp.dbf | 
erase temp2.dbf 
erase temp3.dbf 
erase temp.ndx 
erase temp3.ndx | 
erase type_num.ndx 


clear | 
release all 

close databases . 
return 


endif done 


enddo 
xeof sum_rpt.prg 
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APPENDIX C 
PMS USER’S MANUAL 


Ec INTRODUCTION 


This manual is designed to familiarize and serve as a reference for the Property 
\Ianagement System designed specifically for the Administrative Science Department. 
This system is written as an application program of dBase III plus, installed on an 
IBM PC XT located in Ingersoll 250. The Property Management System is menu 
Sir em, tnereiore tere 1S moO requirement to have a knowledge of dBase III plus. 
Additionally there is no real requirement for users to have a familiarity with the 


operation of an [BNI microcomputer. 


a. Getting Started 

The first step in getting started is to take the system boot-up disk provided, 
inserting it into the floppy drive, then turning on the computer. Turning on the 
computer involves flipping the toggle switches on the right back side of the two system 
units, then turning the top switch on the front of the monitor. The printer need not be 
activated until prompted. If the system 1s tarted properly, after a minute or so, an 
initial license agreement screen for dBase III should appear. At this point depress the 
return key and commence the operation of the Property Management System. Your 
screen should appear identical to that of Figure C.1. If you're ready to continue, then 


as the screen says, press any key to continue. 


If the system did not respond exactly as stated, or you receive any sort of 
error message at all, then it 1s likely that you used the wrong boot-up disk, or there is a 
system error. Check to see if the proper boot-up disk was used, if so alert the problem 


to the attention of the department supervisor for follow up investigation. 


b. Passwords 
After accessing the Property Management System vour screen should appear 
exactly as Figure C.2, prompting you for vour password. To utilize the Property 
Management System you must have an authorized password. The system makes use of 
two tvpes of passwords to restrict the access to the system. A restricted password 
allows read-only access, which permits searching the existing records and printing 
reports. An unrestricted password allows you to enter, delete, or modify new or 


existing property records. 






Property Management System 









The Property Management System is an application program to 
aceeicst the Admin Science Dept in maintaining accountability 
for departmental property. 






Prees any key to continue... 


Figure @:! [nitial Piviseseucenr 





ENTER YOUR PASSWORD: 
(or presse return to quit) 








Figure C.2 Passwords. 


You will note that the characters are not echoed back to you on the te:munal 
as you type them. This is an added security feature and not a defect in the system. 
Should you incorrectly enter your password, or the password is not valid. vou will 
momentarily see an error message on the screen. After the error message simply re- 
enter your correct password. There is no limit to the number of times vou imav enter 
il incorrect password, but without a correct entry you will not progress past this 


pot. 


If you are certain you have correctly entered your password and are still being 


denied access, then you must verify with proper authority that your password 1s indeed 





valid. To exit the svstern from this point, depress the return key and vou will return to 
MS DOS. Turning the computer off is also an alternative and will not impair the 


program. 


Trying to access restricted operations without a proper password will cause an 
crror message. You miust re-start the system and log on with a proper password to 


access these operations. 


Z PROPERTY MANAGEMENT SYSTEM OPERATIONS 


After entering a correct password the next screen you will see should be that of 
Figure C.3. With restricted access vou may perform either of the first two listed 
operations. You may also make use of the on-line help facility by simply typing “HH”. 
An unrestricted password will allow you to perform any of the listed operations. If vou 
choose to exit the system, typing a “0” will terminate the Property Manayement Svstem 
miceexit you to MS DOS andthe computer may be turned off, or used for another 


application. 










Property Management Main Menu 





LISTS or SEARCHES 
PRINT REPORTS 


ENTER new property 
~ DELETE property 
MODIFY property 









~ HELP 


= po OT & GW 
t 


Exit to MS DOS 


Belection 





Figure C.3. Main Menu. 


a. Help 
All menus throughout the entire program have a FElelp option as one of the 
choices. To select this option type an “H” as your selection. Selecting this wil provide 


valuable information pertaining to the choices on the current menu screen. [Ielp is 
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automatically exited when you have paged through all the information. You may exit 


prior to that by using the ESCape Key. 


b. Lists or Searches 
If you desire a hist of property, a sub-set of property, or to search for a 
specific rtem, then select “1” from the main menu. The List and Searches Menu will 


next be displaved on vour screen (Figure C.4). 


| a eee el 


List and Search Menu 








i" 
4 


Components assigned to a Custodian 
2 - Components assigned by Locations 
3 - Custodian Listing 


4 - Components of a single Manufacturer 
5 - Components of a single Model i 
H - HELP 


O - Return to MAIN MENU 


selection : 2 ee 


ee “a el SS 


Figure C.4 List and Search Menu. 


This menu displays all the available choices under this category. You may 
make any selection you choose. Typing a “0” will return you to the main menu. 
1. Components Assigned to a Custodian 
This option will allow you to search for components by assigned custodian, 
or components with the AS DEPT as custodian. 
Entering a “I” for custodian search, from the Component Search Screen 
(Figure €.5), you will be prompted for last name of the custodian of interest. 
By depressing the return key, you return to the List and Search \lenu. To 
oerform a search by custodian the name must be entered as kept on file. (If vou have 
some doubt about this, use the Custodian Listing option from the List and Search 


\fenu). 
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COMPONENT SEARCH SCREEN 


Choose a search for one of the following: 






1. Components assigned to a Custodian 
2. Components of the AS DEPT 







To EXIT leave choice blank 


Pigticees ss eamponent Search Screen. 


Entering a “2” for AS DEPT component search, from the Component 
Beare screem (Pipure C5). wwilllimmiediately provide you with a list of components 
sorted by location that the AS DEPT maintains direct responsibility (lab and storage 
property). 
2. Components assigned by Locations 
SCleChmen sihOmmeurceLIst and Search Menu (Figure €.4), allows vou the 
option of selecting a list of all components by their phvsical locations by making a 


sclection from the menu choices of Home or Office, Storage, or Lab. 


3. Custodian Listing 
This selection provides a listing of all custodians and the locations that they 
have property on file: either their office or home address. Figure C.6 shows a sample 


output screen of this selection. 


This selection is useful to verify that a custodian owns property and to see 
the way their name is kept on file. The names are shown a screen at a time 
alphabetically. Follow the prompts at the bottom of the screen to continuc through 


the listings, or to exit and return to the Listing and Searches Menu. 
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CU St] Omran L 1S 1 f4ieers 






Custodian Office Home Address 





BUI, TUNG ( Tageo ) 






MORTAGY, BEN Ola 2a) 










SEATOM eT it 3 ELM ST, CARMEL 





SV jal (i=32zZ) 










SHIT}; Jats Ci=izi) 


That is everyone on file 


Figure C.6 Custodian Listing Screen. 


4. Components of a single Manufacturer 
This selection allows vou to get a listing of all components on Iile for a 
single manufacturer. When prompted, type in the mfg and a list of comnmponents wi!l be 
provided as shown in Figure C.7 The hist gives you the model, description, custodian, 


and the tocation of each cornponent on file for this particular mfg. 


The components are listed a screen at a time, vou can continue through the 
entire list or return to the List and Search menu by following the instructions at the 


hottoin of the screen. 


5. Components of a single Model 
This sclection allows you to get a listing of all coinponents on file for a 
single model. This selection is similar to that of the hist of componentsmgy 
manufacturer. The same information is provided, but the list may tnclude more than 
one mfg. 


c. Property Reports 
There are two formatted reports provided by the Property Management 
System. a Quarterly Report and a Suimmary Report. To reach the Print Reports 


Menu, enter a “2” at the Main Menu. 
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Sour GN ENT SEARCH SCREEN 


MFG: IBM 
Model Custodian Location 


Eee AL AS DEPT ese (eli eons) es 
=> 256K MAIN MEMORY WITH TWO FLOPPY DRIVES 


MONITOR AS DEPT Bee th Loe) e 
aoe, 4 WITS oolNG KNOBS 


Pema. Romar L DAB ye Cl—-1s8) 8 
-> 640K MAIN MEMORY WITH ONE FLOPPY,10MB HARD DRIVE 


MONITOR RomeverT DAB l= S86) b 
=o AONE Piet SolNG KNOBS 


Press any key to continue, or ESC to exit 





Figure C.7 Mfg Search Screen. 


I. Quarterly Report 
This report is a three part report used for verification of the status of the 
property on file. 


1. The component report - this will give a listing of all components sorted bv 
custodian. It will provide the mfg, model, description, mfg serial 4. and the 
location of cach component. 


2. The part to component report - this will give a listing of all parts assigned to a 
component sorted by custodian and location. I[t will provide the model.serial 2, 
and description of cach part assigned to a particular component. 


3. The stock part report - this will provide a list of all parts in stock that have not 
been assigned to a component. 


Figure C.8 shows the screen after sclecting the Quarterly Reports option. 
You will be prompted to turn on the printer as the files are being combined to print 
the report. Once the files are ready you will be asked if the printer 1s ready, answer the 
appropriate response to the question at the bottom of the screen. I[f vou are not ready 


the system will wait until vou are, or you decide to abandon the report. 


NOTE: You can exit the Quarterly Report selection at any time as long as the 
system 1s not told the printer is ready and it really is not. This may cause a 
lock up, and you will have to re-start the program, no damage should occur by 


poi 









Q U AUR TER Ox R CBee RL > C RofieEieoNn 





KOO Ok SET UP THE PRINTER OOOO FO IK 





Standby while the files are joined for preparing reports 


Figure C'S @uarterly Report screen. 


shutting off the computer but it is recommended that you avoid this if at all 
possible. To exit without completion of the report, type “ESCape”. this will 
abandon the reports and return you to the Reports Menu. 
2. Property Summary Report 
The Property Summary report is also a three part report. [hese reports are 
to be used for inventory purposes to maintain accountability of department property, 
providing a listing of property on file sorted by Property Type and Property Numbers. 


|. The component report - this will give a listing of all components sorted by 
property tvpe and number. It will provide the mfg, modcl, mfg serial #. 
custodian and the location of each component. 


tw 


The part to component report - this will give a listing of all parts assigned toa 
component sorted by property type and number. I[t will furnish the model, 
description, custodian, and location of cach part assigned to a particular 
component. 


3. The stock part report - this will provide a list of all parts in stock that have not 
been assigned to a component, sorted by property type and number. 


The procedure for printing the Property Summary report 1s the same as 
chat of the Quarterly report. See the directions in that section if you have any doubt in 


cenerating these reports. 
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d. Enter New Property : 
Property is entered as a part or a component. These are the two selections 
available from the Enter Property Menu. Parts are items such as cards, boards or hard 


disks that are used in components. 


1. Component Entry 

Figure ©.9 shows a typical component entry. Enter the appropriate 
information as the ficlds appear. Once a field entry is made you may need to depress 
ciemret@r Key to progress to the mext entry. The designated use and property tvpe 
fields are the exceptions. These require only entering the first letter of the choices 
displayed. After all entries are made vou will be given the opportunity to correct 
mistakes. [t 1s important that you review each field to ensure thev are correct. Once 
Poueteiiotic System that the entries areveorrect, this component is placed on Iile. 1{f for 
some reason an improper component record is placed on file you may use the modify 


or delete selections from the Main Menu to correct or delete the entrv. 





CO or SOat a NT ENTRY Se Oh aN 


Enter Component Information: date: 06/26/87 
mfg: IBM 
model: PC XT 
eerial &: 123456789012345 
description: 256K MAIN MEMORY WITH TWO FLOPPY DRIVES 


designated use: O (Office / Lab / Storage / Home) 
Custodian 
last name: BUI 
first name: TUNG 
office: (I-316) 


property type: P (Plant / Minor / Other) 
property #: 1234567899 


price:: $ 1,234.00 
reqaqn #: 7123-7199/R7S8C1 


Is the above information correct?: 


{ Yea / No / Abandon ] 





figure €.9 Component Entry Screen. 


Several of the fields are required entries. Mfg is required or you will return 


to the Enter Property Menu. Other required entries are serial #, designated use. and 


[So 


the property tvpe. Dependent upon choices associated with these entries, several other 


entries mav be required. 


The serial # field is for the mfg serial #, this is a very important and 
required entry. Care must be taken when entering the serial # since this is the field 


that maintains a components identitv, making it unique. Ensure this entry 1s correct. 


There are four categories of component use. Storage components are 
assigned to the AS DEPT and will require no further related entries. Lab components 
are also assigned to the AS DEPT, and you are required to choose one of the four 
department lab locations. Office and Home use are used for custodian assignments. 
You will be required to enter the custodians last name, and if the custodian is on file 
vou will need not enter anv further custodian information. If they are not on file then 
vou will be required to enter a first name and the appropriate location information. To 
take care of the situation of two custodians with the same last name, vou will be 
requested to verify the custodian that is on file. This should also prevent entering a 
custodian twice with two different variations of their name. Remember however that it 
Is possible to have two custodians with the same last name. No exception is made for 
two custodians with the same last and first names, if this situation ever occurs the only 


Way to distinguish them will be on location. 


There are three property type classifications. “P” is for plant property, “M/” 
is for minor property, and “O” is for other than plant or minor property. Plant and 
Minor property will require an associated property number. This is also an important 
field, which will provide the accountability of the department property within NPS 
guidelines. Care should be taken when entering this field. 


* NOTE: If the situation ever arises that you do not know the proper 
information for a required field entry, do not worry. Simply enter anv accepted 
entry, and abandon the entry when you reach the point in Figure C.9. On the 
other hand, if an incorrect choice was made at some point, you may make the 
appropriate corrections instead of abandoning the entry. Care should be taken 
never to file a false or incorrect record. 

2. Part Entry 
Figure C.10 shows a typical part entry. As with the component entry the 
entering procedures are the same. To enter a part, you first enter the model which 1s 
required, then the part serial # and description, both are optional. At this point you are 


asked if this part is for stock or to be used in a component. Stock entries are assigned 
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to the AS DEPT and require no related entries. A part assigned to a component will 
require that the component serial # be entered. [hese two entries are required, 
Property type is also a required entry. Plant and Minor property will also require a 


property number. Price and reqn # are optional entries. 







Been T Rey 





PART oC R EVEN 


Enter Part Information: 










model: CARD 
serial &: E2345 
description: COLOR GRAPHICS CARD FOR AN IBM PC 








designated use: C (Storage / Component) 









Component 
serial #&: 






123456789012345 





property type: O (Plant / Minor / Other) 






price: $ 123.00 
reqn #: ~ 


/ 








Is the above information correct?: 
{ Yes / No / Abandon jj 





mieuree-10 Part Entry Sereen. 


* NOTE: It is important that the component serial # 1s accurate. A search of all 
components on file will let you know if this component is not on file. If not on 
file and the serial # is correct you must enter the component first. If you 
entered it incorrectly you will be allowed to re-enter it. 

e. Delete Property 
To delete property select this option from the Main Menu. This wil display 


the Delete Property Menu, you may delcte either a part or a component. 


I. Component Deletion 
To delete a component you must know the component serial =. [enter the 
proper serial # and you will be shown the component on file with this serial # (Figure 
C.11). You must verifv that this is the correct component. [fit is not then check the 
serial 4, no two components should have the same serial #. If the component ts 


correct then the files are checked to sce if parts are on file for this component. 


14] 











C-O°M 2 OFNBEAN sh D EMboE th. Lot SG. poe, N 
date: 06/26/87 
Enter Component 


serial #: 123456789012345 











mfg: IBM 
model: PC XT 
description: 256K MAIN MEMORY WITH TWO FLOPPY DRIVES 
property type: Plant 
property 8&8: 1234967890 






The following PART(S) are on file for this component: 










Model Property Type Property 8 
CARD O 


Do you wish to delete the PART(S)?: 
{[ Yes / No J 


Figure C.11 Gomponent Deletion Screen. 


[f parts are on file for this component, you cannot delete this component if 
you do not wish to delete the parts. You will have to reassign the parts using the 
modify selection from the Main Menu. If there are no parts, or you want to delete the 
parts as well, then answer ves when you are questioned if you wish to delete this 
component. Be caretul when deleting components and parts, once deleted there is no 


means of recovering this information. 


2. Part Deletion 
Since parts can be assigned to stock or to a component, to delete a part 
vou must know how a part is being used to delete it. A component part requires that 
you know the serial # of that component. Enter the component serial #4. like a 
component deletion the files are searched to see if this component is on file. You will 


have to verify that the component ts correct to continue. 


[f the component is found or if this is a stock part, you are then asked to 
fill in if known: the part model, part serial #, part property type, or part property 
number. If you do not know the proper information depress the return key. 
Depending on the information provided a list of parts will be displayed for vou one at 


a time to determine if it is the correct part or not (Figure C.1!2). 
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PART Peewee bP | | ON S CR E EN 


date:06/26/87 







One one part on @rle: 


model: “GARD 
deecription: COLOR GRAPHICS CARD FOR AN IBM PC 
property type: Other 





gm 


re 


Ie this the correct part?: : | 


| { Yee / No ] 


Promeseur Part Deletion Sereen. 


If no parts are found meeting these constraints then a message will tell vou 
that your part cannot be found and mav not be on file. Check the property reports to 
see if vour part information ts indeed correct, if so the part probably was previously 


deleted. 


f. Modify Property 
To modily a property record (either part or component), select this option 
from the Main Menu. A menu screen will appear for vou to choose from the available 


options (Figure C.13). The selections are explained under the next 3 sub-sections. 


Component records have two different modify operations. If you wish to 
reassign a component to a new custodian or location select option “!”. To modif¥ the 
other than assignment fields, such as price or property number, choose selection “2”. 
The modify record option will be used to correct mistakes after entry. There 1s only 


one modify option for parts, which allows reassigning the part or changing all fields. 


I. Modify Coniponent Custodian or Location 
Selecting this option from the Modify Menu vou must enter the component 
serial # or return to the Modify Menu. If the component ts on file you will be asked if 


this 1s the correct component (Figure C.14). 
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Modify Propertyetenu 








Modify COMPONENT 
1 - Custodian or Location 
2 - Record 


Modify PART 
3 - Accountability or Record 


H =SHGr 


O - RETURN to MAIN MENU 


| selection : : a 


Figure C.13 Modify Property Screen. 


M0 Dia ney C O MaeeO"N EN T ASSIGNMENT 
date:06/27/87 
mig: IBM 
model: PC XT 
6erial #: 123456789012345 
description: 256K MAIN MEMORY WITH TWO FLOPPY DRIVES 


property type: Plant 
property #: 1234567890 


designated use: Office 


Custodian: BUI, TUNG 
office: (1-316) 


Is this the correct component?: 
{ Yes / No } 





Figure C.14 Modify Component Assignment Screen. 


If this is the correct component you may then modify the designated use 
and reassign the component to a new custodian, location, or both. Figure C.15 is a 


sample reassignment. 
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ieoeveierereercC OM PONENT ASS TGNMENT 
——_—_—_—_——_—_——— Sr -_-_-eerr SSS —— SN 
date:06/27/87 






mie : IBM 
model: Po AT 
serial #: 123456789012345 
description: 256K MAIN MEMORY WITH TWO FLOPPY DRIVES 












Property type: Plant 
property #: 1234567890 








designated u6e: 





L (Office / Lab / Storage / Home) 


= 


A (1-158) Front C - (1-224) 
B - (1-158) Back D- (1-250) 





Enter one of the above lab locations :D: 







Are the modifications correct?: 
{ Yes / No / Abandon} 





Figure C.15 Sample Component Reassignment. 


If the modifications are correct then you may file this componcnt record 
with the new changes. If you made a mistake you may try again or abandon the 


modifications with no changes having been made. 


2. Modify Component Record 
Selecting this option from the Modify Menu you must enter the component 
serial # or return to the Modify Menu. If the component ts on file you will be asked if 
this is the correct component. Figure C.16 is a representative display screen and will 


be used as an example for this section. 


If this is the correct component you may then modify the fields not 
associated to the designated use, custodian, or location. Figure C.17 1s a sample 
modification, note the difference in the component description. [Each field that 
modifications are allowed, will be displayed one at a time with the original information. 


Make the required changes or hit the return key to leave the original entry as Is. 


If the modifications are correct then you may file this component record 
with the new changes. If you made a mistake you may try again or abandon the 


modifications with no changes having been made. 
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gee 1 bay C OVO Ne ied > C Rat BN 


date:06/27/87 
Custodian: BUL,.. TUNG 
designated use: Office 


mire: IBM 
model: PC XT 
serial #: 123456789012345 
description: 256K MAIN MEMORY WITH TWO FLOPPY DRIVES 


property type: Plant 
property #: 1234567890 





price: $2) 591224200 
reqan #: 7123-7199/R7SCl 


Is this the correct component?: 
{ Yes / No iM 





[igure C.16 Modify Component Screen. 


ft OUP rss CoGat F ON BENT SCREEN 


date: 06/27/87 
Custodian: BO LUNG 
designated use: Office 


mig: IBM 
model: PC XT 
eerial #: 123456789012345 
description: 640K MAIN MEMORY, 1OMB HARD DISK 


property type: P (Plant / Minor 7s0tner 
property #: 1234567890 


pricé: — 1,264.00 
reqn. #8: os fl2Zde71997 8761 


Are the modifications correct?: 
( Yea / No / Abandon) 





Figure C.17 Sample Component Modification. 


146 


3. Modify Part Accountability or Record 
Parts are assigned usage to stock or to components. If this is known then 
enter the appropriate entry. To allow for the occasion when this is not known, such as 
a mistaken entry, an additional option is given for part modifications. Tieure C.18 


displavs the initial Modifv Part Screen. 


HOD I eax Perak 1 oec RE EN 


date: 06/27/87 


Enter Part 
current usage: (Storage / Component / ? not known) 


To EXIT leave current usage blank 





Figure C.18 Modify Part Screen. 


If the part is assigned a component then vou are asked to enter the 
component serial #. If the component is found, or if this 1s a stock part. or if the 
usage 1s not known, vou are then asked to fill in if known: the part model, part serial 
#, part property type or part property number. If you do not know the proper 
information enter a return. Depending on the information provided, a hist of parts will 
be displayed for you one at a time to determine if this is the correct part or not (I igure 
Gals). 


If this is the correct part, you may then make the required changes. Each 
field 1s presented to vou, one at a time, with the original entry. Make the appropriate 
modifications, or hit the enter key to leave the entry unchanged. Once all the fields 


have been presented you must reply that they are correct. If the changes are not 
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MOD" leer PART 9 COR Seca 
date:06/27/87 
Qnly one part on file: 
model: CARD 
6eerial &: 12345 
description: COLOR GRAPHICS CARD FOR AN IBM PC 
Property type: Other 


current use: COMPONENT 
custodian: BUI TUNG 


mfg: IBM 
6erial &: 123456789012345 
description: 640K MAIN MEMORY, 10MB HARD DISK 


Is this the correct part?: 
( Yes / No Jj 





Figure C.19 Sample Part Modification. 


correct then you can re-edit them or abandon the modifications leaving the original 


part record as first entered. No changes will be filed until you wish to file therm. 


3. SPECIAL OPERATIONS 


This section will cover operations not covered in the previous sections. The 
Operations covered in this section will help maintain the system, and provide for case of 
isc 

a. General Editing 

Normally the keyboard is in the overwrite mode. You may depress the | \Sert 
kev to allow inserting characters if you wish. You must be careful when using the 
backspace or arrow keys, it is possible to find yourself outside of the entry field. This 
really does not cause a problem, but mav be a little inconvenient, requiring you to 
circle around to that field again. There is no reason to use the Pg Up or Pg Dn keys, 
these will definitely take you outside the field of tnterest. The only exception to these 


problenis are When you are forced to make a selected entry (eg. Yes / No). 
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b. ESCape 
This kev allows you to return to a previous menu in many instances. Do not 
to use this key if you are not given the option to do so. Using this kev 
indiscriminantly may leave files open. possibly causing errors. Using ESCape when not 


an option mav also cause vou to use the enter key when not normally required. 


c. Printing 
Printing 1s normally accomplished with the Print Reports option from the 
Vidiievicnummansinemuaere 1S paper in the printer and that the printer is turned on. It 
is possible to get a printing of a particular screen by depressing the shift key and PrtSc 


kev simultaneously. Avoid doing this if the printer is not set up for printing. 


d. Backups 
No svstem 1s infallible, therefore a svstem backup is to be maintained bv the 
department supervisor. Additionally the files must be backed up so that the 
information need not be re-entered if there is some sort of failure. The data files will 
be copied automatically if the system is exited normally from the Main Menu. The 
entire application cannot be copied onto a single disk, so the database (dbf) files will 
only be copied. In case of a loss of database files, the supervisor will see to it that a 


knowledgeable dBase III plus programmer re-create the system to normal operation. 


e. Exiting 
To exit any menu enter a “0”, this will return you to the calling menu. At the 
Main Menu this will return you to the microcomputer operating system (MS DOS) 
after making copies of the database files (the system boot-up disk must be in the 
floppy drive). Thus is the normal procedure for system exiting, you should not turn off 


the computer until returned to the MS DOS prompt: C>. 
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